Question

s:=0; for i:=1 to 3 do begin s:=s+1; end; write (s); 1 3 2 4​

Answer 1

Ответ:

Program zikl;

Var s, i:Integer;

Begin

s:=0;

for i:=1 to 3 do

begin

s:=s+1;

Writeln(s)

end;

End.

Выводит 1, 2, 3.

Если нужно до 4, то замени строку for i:=1 to 3 do, строкой: for i:=1 to 4 do