Расставить недостающие фрагменты программы так, чтобы в результате получилось решение задачи: Найти сумму чисел от 10 до 100.

малый7 малый7    1   09.04.2020 09:54    23

Ответы
alexeymaksimov alexeymaksimov  14.08.2020 23:53

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика