Вычислите сумму чисел от 1 до 100 т.е для решения используем соотношения: s=s+c; c=c=1,где s-текущее значение суммы чисел; с-текущее значение числа(начальное значение s=0 и c=1)

Баэхич Баэхич    1   18.05.2019 06:40    4

Ответы
lerabutsenko lerabutsenko  11.06.2020 12:56

var
  S, C:integer;
begin
  S := 0;
  for C := 1 to 100 do
    S := S + C;
  writeln('S = ', S);
  readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
ЛамповыйКун1 ЛамповыйКун1  11.06.2020 12:56

Program zadacha;

var s,c:integer;

Begin

s:=0;

for c:=1 to 100 do

      s:=s+c;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика