Дано трехзначное число. Вычислить среднее арифметическое его цифр.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | program line_7; uses crt; var a: integer; sr: real; begin clrscr; write(‘a = ‘); readln(a); sr:=0; sr:=sr+(a div 100); sr:=sr+(a mod 10); a:=a div 10; sr:=sr+(a mod 10); write(‘Среднее арифметическое цифр = ‘, sr/3:4:2); readkey; end. |