Роман
6 год назад
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!! очень нужно!!!!!!!!!! ПОМОООГИИИИТЕЕЕЕЕЕ!!!!!!!!!!!!!!!!
Дано многоразрядное число N < = 10^9. Найти частное от деления цифр числа, разряды которых равны 1 и 6.
ОТВЕТЫ
Kumazhisa
Aug 8, 2019
Var a,a1,a6:longint;
begin
write(a = );
readln(a);
a1:=a mod 100 div 10;
a6:=a mod 10000000 div 1000000;
writeln(a1 = ,a1, a6 = ,a6);
if a6lt;gt;0 then writeln(a1/a6);
end.
Пример:
a = 12354645
a1 = 4 a6 = 2
4/2= 2
begin
write(a = );
readln(a);
a1:=a mod 100 div 10;
a6:=a mod 10000000 div 1000000;
writeln(a1 = ,a1, a6 = ,a6);
if a6lt;gt;0 then writeln(a1/a6);
end.
Пример:
a = 12354645
a1 = 4 a6 = 2
4/2= 2
189
Смежные вопросы:
