Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕЕЕ!ПОЖАЛУЙСТА! НАПИСАТЬ ПРОГРАММУ(ПАСКАЛЬ)

Ответ оставил Гость

Var n: longint;
begin
write(Введите число );
readln(n);
writeln(Средняя цифра = , (n div 10000 + n div 1000 mod 10 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) div 5);
writeln(Сумма 1, 2, 4, 5 цифры = , n div 10000 + n div 1000 mod 10 + n div 10 mod 10 + n mod 10);
end.