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

Question

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

Answer 1

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.

Comments

Вы размещаете одно и тоже ** каждом сайте. Ответ к другой задаче!!!!!! Тут цикл и сумма чисел не от 1 до 100, а от 10 до 100!!!!!