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