За­пи­ши­те сколько раз выполняется цикл

Var s, n: integer;

Begin

s := 20;

i:=4;

while i<7 do begin

s := s + i*2;

i:=i+1;

end;

Writeln(s);

End.

imranio    1   29.04.2020 18:12    0