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

Предыдущий
вопрос Следующий
вопрос

var
i, sum: Integer;
begin
sum := 0;

for i := 0 to 99 do
begin
sum := sum + i;
end;

writeln('Сумма чисел от 0 до 99: ', sum);
writeln('Количество просуммированных чисел: ', i);
end.