Вычислите сумму чисел от 1 до 100 т.еДля решения задачи используем соотношения:S=S+C;C=C=1,где S-текущее значение суммы чисел;С-текущее значение числа(начальное значение S=0 и C=1)
Вычислите сумму чисел от 1 до 100 т.е
Для решения задачи используем соотношения:S=S+C;C=C=1,где S-текущее значение суммы чисел;С-текущее значение числа(начальное значение S=0 и C=1)
Гость
Ответ(ы) на вопрос:
Гостьvar
S, C:integer;
begin
S := 0;
for C := 1 to 100 do
S := S + C;
writeln('S = ', S);
readln;
end.
ГостьProgram zadacha; var s,c:integer; Begin s:=0; for c:=1 to 100 do s:=s+c; writeln(s); end.
Не нашли ответ?
Похожие вопросы