Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!! очень нужно!!!!!!!!!! ПОМОООГИИИИТЕЕЕЕЕЕ!!!!!!!!!!!!!!!!
Дано многоразрядное число N <=10^9. Найти частное от деления цифр числа, разряды которых равны 1 и 6.

Answer 1

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 a6<>0 then writeln(a1/a6);
end.

Пример:
a = 12354645
a1 = 4 a6 = 2
4/2= 2

Answer 2

Вон я там с циклом написал чуть более раннюю задачу....можете из нее переделать себе, там все ясно предельно

Answer 3

15 строк вместо одной-единственной... учат в школе фигне, а потом мы удивляемся результатам, что выходят балбесы в основном одни из школы.