Question

Паскаль. Дан код

program pz4_v5;

var i:integer;

begin

i:=301;

while i>=201 do

begin

write(Power(i,2),' ');

i:=i-2;

end;

end.

Нужно заменить i-2 стандартной функцией

Answer 1

Ответ:

program pz4_v5;

var i:integer;

begin

i:=301;

while i>=201 do

begin

write(Power(i,2),' ');

dec(i,2);

end

end.

Объяснение:

dec (x, y) - равнозначно x := x - y (уменьшает первое число (x) на второе (y))
dec (x) - равнозначно x := x - 1 (без указания второго параметра уменьшает число (x) на 1)