Написать программу для вычисления суммы чисел от 1 до 100 с использованием 3 видов цикла.

Question

Информатика

Ионична

2 августа, 05:52

Написать программу для вычисления суммы чисел от 1 до 100 с использованием 3 видов цикла.

+5

Ответы (1)

Знаете ответ на вопрос?

Витяхя · Answer 1

Var

S, i:integer;

Begin

S:=0;

For i: = 1 to 100 do

S:=S+i;

WriteLn ('S = ', S) ;

S:=0;

i:=1;

Repeat

S:=S+i;

i:=i+1

Until i>100;

WriteLn ('S = ', S) ;

S:=0;

i:=0;

While i<100 do

Begin

i:=i+1;

S:=S+i

End;

WriteLn ('S = ', S) ;

End.