Pascal. Линейные алгоритмы. Задача 2

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

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
program line_2;
uses crt;
var
a, b, c: real;
begin
clrscr;
write(‘a=’); read(a);
write(‘b=’); read(b);
write(‘c=’); readln(c);
write(‘Среднее арифметическое a, b и c = ‘);
write(((a+b+c)/3):4:2);
readkey;
end.
Рейтинг
( Пока оценок нет )
Загрузка ...