Вычислите сумму чисел от 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.