Ответы на вопрос:
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.
Результат:
Популярно: Информатика
-
Фыффыф19.07.2020 11:35
-
Nikitka11353225.10.2020 22:26
-
NikNameXxX26.05.2021 01:09
-
jayature26.12.2022 04:29
-
явлущуьеиетье814.01.2020 17:58
-
котёнок13013.02.2021 19:37
-
зюзенька27.07.2022 04:24
-
sasha194813.02.2023 07:29
-
yujejal14.04.2023 01:25
-
kotiketik22.10.2020 15:58