Сколько раз будет выполнен цикл?
program_5;
var x, s: integer;
begin
s:=0;
x:=2;
while x <14 do begin
x:= x +3;
s:= s+1;
end;
writeln (s)
end.

alanuit    2   21.05.2020 20:25    1