Дано 9-значное целое число. Найти среднеарифметическое цифр с 5-ой по 7 включительно ...

Question

Дано 9-значное целое число. Найти среднеарифметическое цифр с 5-ой по 7 включительно
Сделайте срочно в Паскале!

Comments

с 5-7 3 числа поэтому S:=(a+b+c)/3 a,b,c-цифры с 5 по 7

Answer 1

123456789
5
6
7
program gt;
var n,a,b,c:integer;
s:real;
begin
readln(n);
a:=(n mod 100000)div 10000;
b:=(n mod 10000)div 1000;
c:=(n mod 1000)div 100;
s:=(a+b+c)/3;
writeln(s);
end.