Решите задачу, используя язык программирования Паскаль: Даны три действительных положительных числа. Найти среднее арифметическое этих чисел. ПЛИЗ до завтра надо
Решите задачу, используя язык программирования Паскаль: Даны три действительных положительных числа. Найти среднее арифметическое этих чисел.
ПЛИЗ до завтра надо
Ответ(ы) на вопрос:
Гость
program zadacha;
var a,b,c,s:REAL;
begin
writeln('Enter a,b,c:');
readln(a);
readln(b);
readln(c);
s:=0;
s=(a+b+c)/3;
writeln('Среднее арифметическое', s);
end.
Не нашли ответ?
Похожие вопросы