Ответы на вопрос:
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.
Результат:
Популярно: Информатика
-
tzar106.04.2021 06:36
-
lamowitska02.06.2022 18:31
-
agentWINX15.02.2023 04:53
-
Кейси00131.03.2022 23:55
-
Rostik999918.06.2023 07:18
-
kallor1211.11.2021 00:06
-
cutyboylovep07y0r12.02.2023 23:23
-
Турик208711.11.2022 12:27
-
konoval1i26.10.2020 12:13
-
Vovndr29.09.2022 14:10