Расставить недостающие фрагменты программы так, чтобы в результате получилось решение задачи: Найти сумму чисел от 10 до 100.
Ответы
Ответ дал:
0
1Var
2 i,s: Integer;
3 BEGIN
4 s:=0;
5 For i:=1 to 100 do
6 s:=s+i;
7 Writeln('Сумма чисел от 1 до 100 = ',s);
8 Readln
9 END.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад