Дано 9-значное целое число. Найти среднеарифметическое цифр с 5-ой по 7 включительно Сделайте срочно в Паскале!
Дано 9-значное целое число. Найти среднеарифметическое цифр с 5-ой по 7 включительно
Сделайте срочно в Паскале!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы