ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!! очень нужно!!!!!!!!!! ПОМОООГИИИИТЕЕЕЕЕЕ!!!!!!!!!!!!!!!!...

Question

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

Answer 1

Program chastnoe;

var N, cifra;p, c, i: integer;
begin

write(‘N=’);readln (N);
i:=0;
while N>=0 do
begin
cifra:= N mod 10;

i:=i+1;
if i=1 then p:=cifra;
if i=6 then c:=cifra;
n:=n div 10;
end;
writeln (‘частное=’, p/c);
end.

Comments

Желательно бы с ииспользованием цикла

---

об этом нужно писать заранее в условии.

---

Спасибо большое)))))

---

она не работает