Составить программу вычисления суммы всех целых чисел от 0 до 100.

1 использовать цикл с предусловием.

2 использовать цикл с постусловием.

3 использовать цикл с параметром

Question

Информатика

Святополк

25 августа, 00:21

Составить программу вычисления суммы всех целых чисел от 0 до 100.

1 использовать цикл с предусловием.

2 использовать цикл с постусловием.

3 использовать цикл с параметром

+4

Ответы (1)

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

Миколай · Answer 1

1)

Var

i, n:integer;

begin

n:=0;

i:=0;

while i100 do begin

i:=i+1;

n:=n+i;

end;

writeln (n) ;

end.

2)

Var

i, n:integer;

begin

n:=0;

i:=0;

repeat

I:=i+1;

n:=n+i;

until i=100;

writeln (n) ;

end.

3)

Var

i, n:integer;

begin

n:=0;

i:=0;

For i:=0 to 100 do

n:=n+i;

writeln (n) ;

end.