Question

ПОМОГИТЕ ПОЖАЛУЙСТА. СРОЧНО!!!

Определите значения переменных х и у после выполнения следующего фрагмента программы:
x:=1;
while x<=10 do
begin
y:=x*x+4;
x:=x+2;
end;
write('x=', x, 'y=', y);


у=…
х=…​

Answer 1

Ответ:

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.

Результат: