Вычислите сумму чисел от 1 до 100 т. е

Для решения задачи используем соотношения:S=S+C; C=C=1, где S-текущее значение суммы чисел; С-текущее значение числа (начальное значение S=0 и C=1)

Question

Никифор

23 марта, 02:21

+4

Ответы (2)

Знаешь ответ?

Валюся · Answer 1

Program zadacha;

var s, c:integer;

Begin

s:=0;

for c:=1 to 100 do

s:=s+c;

writeln (s);

end.

Тиманя · Answer 2

var

S, C:integer;

begin

S : = 0;

for C : = 1 to 100 do

S : = S + C;

writeln ('S = ', S);

readln;

end.