впишите все значения которые принимают переменные (x,y),(x,y)...
program m3;
var x,y,t:integer;
begin
y:=2;
t:=3;
x:=22;
while y y:=y+t;
writeln('y=',y,'x=',x);
end;
end.

slavi4ka    2   11.04.2020 13:27    0