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

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

var
sum, i, count: integer;
begin
sum := 0;
i := 0;
count := 0;

while i <= 99 do
begin
sum := sum + i;
count := count + 1;
i := i + 1;
end;

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