Вычислите сумму чисел от 1 до 100 т.е для решения - вопрос №11001452741 от almaz108 01.07.2021 01:35

Question

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

almaz108 · Answer

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