Question

найти сумму ,колличество и среднее арифмитическое всех чисел синтервалом {200,400} с помощью программы лазарус

Answer 1

a=200;

b=400;

for i in range(200,400,1):

       k=k+i;

print(k)

Answer 2

Для нахождения суммы, количества и среднего арифметического всех чисел в интервале {200, 400} с помощью Lazarus (среда разработки для языка программирования Free Pascal), вы можете написать следующую программу на языке Pascal:

pascalCopy code
program SumAverageCount;
var
  sum, count, number: integer;
  average: real;
begin
  sum := 0;
  count := 0;

  for number := 200 to 400 do
  begin
    sum := sum + number;
    count := count + 1;
  end;

  average := sum / count;

  writeln('Сумма: ', sum);
  writeln('Количество: ', count);
  writeln('Среднее арифметическое: ', average:0:2);

  readln;
end.

Сохраните эту программу в Lazarus и выполните ее. Она вычислит сумму всех чисел в интервале {200, 400}, подсчитает количество чисел в этом интервале и найдет среднее арифметическое. Результаты будут выведены на экран.