Задача. Найдите среднее арифметическое двух чисел, причём первое задано случайным образом, а второе введено с клавиатуры. Составьте программу для решения задачи. program N; var a , b , S : real; Randomize; a := Random(100); writeln('Введите второе число: '); readln(b); S := (a + b) / 2; writeln('Среднее арифметическое: ', S:0:2); begin end.
Логотип SimpleЦДЗ

Похожие

Задание

Задача. Найдите среднее арифметическое двух чисел, причём первое задано случайным образом, а второе введено с клавиатуры.

Составьте программу для решения задачи.

  • program N;
  • var a , b , S : real;
  • Randomize;
  • a := Random\(100\);
  • writeln\('Введите второе число: '\);
  • readln\(b\);
  • S := \(a \+ b\) / 2;
  • writeln\('Среднее арифметическое: ', S:0:2\);
  • begin
  • end.

Тот же тест