ПОМОГИТЕ ПОЖАЛУЙСТА!!!! Дано многоразрядное число N lt;=10^9. Найти частное от делени?
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
Дано многоразрядное число N <=10^9. Найти частное от делени?? цифр числа, разряды которых равны 1 и 6.
Гость
Ответ(ы) на вопрос:
Гость Program chastnoe;
var N, p, sh: integer;
m: real;
begin
write(‘N=’); readln (N);
p:= N div 1000000000;
sh:= (N div 10000) mod 10;
m:= p/sh;
writeln (‘частное=’,m);
end.
Не нашли ответ?
Похожие вопросы