Question

Составить таблицу для циклического алгоритма и программу для Паскаль

Answer 1

Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.