Ответы на вопрос:
program test;
var a,s:integer;
begin
a:=1;
s:=0;
while a<=5 do
begin
s:=s+a;
a:=a+1
end;
write(s)
end.
15
Объяснение:
while условие do тело цикла
Цикл с предусловием (пока) выполняется если условие истинно
Популярно: Информатика
-
Desa1118.07.2022 15:21
-
0987mnbv10.06.2020 14:34
-
MudriyMudrec15.02.2020 21:47
-
lilyok200625.03.2021 06:53
-
Veid04.04.2023 09:14
-
torin3919391927.05.2021 18:57
-
alesh12345611.05.2020 00:44
-
eryana19.04.2021 14:11
-
senyadubra31.07.2022 23:51
-
aliya11100010.05.2021 19:21