Question

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

Answer 1

N-кол-во, S-сумма
var S, n:integer;
Begin
n:=0;
S:=0;
while n<100 do begin
S:=n+S;
write('S=', S, ' ');
n:=n+1;
writeln('n=', n);
end;
End.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая вычисляет сумму чисел от 0 до 99 и определяет количество чисел, которые были просуммированы с использованием цикла while:

pascalCopy code
program SumAndCount;
var
  num, sum, count: integer;
begin
  sum := 0;
  count := 0;
  num := 0;

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

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

Как только вы запустите эту программу, она выведет результаты на экран:

yamlCopy code
Сумма чисел от 0 до 99: 4950
Количество чисел просуммировано: 100

Программа сначала объявляет переменные num, sum и count и присваивает им начальные значения. Затем она использует цикл while для сложения чисел от 0 до 99, обновляя сумму и количество на каждой итерации цикла. После выполнения цикла программа выводит результаты на экран.