Дано трехзначное число. Вычислить среднее арифметическое его цифр.
Решение:
|
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. |