Кассианович
5 год назад
Написать 3 программы. Каждая программа должна подсчитывать сумму чисел от 10 до 20. Одна программа должна быть сделана через цикл While, вторая - через цикл Repeat, третья - через цикл For.
ОТВЕТЫ
Schmitz Hedwig
Oct 24, 2020
var s,i: integer;
begin
i:=10;
while (i<=20) do
begin
s:=s+i;
i:=i+1;
end;
write('Сумма чисел от 10 до 20 равна ',s);
end.
var s,i: integer;
begin
i:=10;
repeat
begin
s:=s+i;
i:=i+1;
end;
until (i>20);
write('Сумма чисел от 10 до 20 равна ',s);
end.
var s,i: integer;
begin
for i:=10 to 20 do s:=s+i;
write('Сумма чисел от 10 до 20 равна ',s);
end.
335
Смежные вопросы:
