Объяснение:
есЛи бы знала сказала бы
program test;
var x,y : integer;
begin
x:=1;
while x<=10 do
y:=x*x+4;
x:=x+2;
end;
write('x=', x, ' y=', y);
end.
Результат:
Объяснение:
есЛи бы знала сказала бы
program test;
var x,y : integer;
begin
x:=1;
while x<=10 do
begin
y:=x*x+4;
x:=x+2;
end;
write('x=', x, ' y=', y);
end.
Результат: