Найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры.
Решение:
|
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. |