Написать программу, которая вычисляет среднее арифметическое n чисел. Выполнить в Pascal.
Написать программу, которая вычисляет среднее арифметическое n чисел.
Выполнить в Pascal.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var
a,b,c,d:byte
begin
Writeln('Введите 3 числа через пробел')
readln(a,b,c)
d:=(a+b+c) div 3
Writeln('Среднее арифметическое ', d)
Readln
End.
Не нашли ответ?
Похожие вопросы