Question

Вычислить сумму 0+1+2+3+4+5...+99 и определить сколько чисел просуммировано Паскаль Нужен текст проги со всеми var begin end итд

Answer 1

114.6 чисел
на канкуляторе не легче решить?

Answer 2

Var i,sum,n,count: Integer;
begin
writeln('Введите максимальное число диапазона');
readln(n);
for i:=1 to n do
begin
Inc(sum,i);
Inc(count);
end;
writeln('Кол-во чисел: ',count);
writeln('Сумма чисел равна: ',sum);
end.