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

Question

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

Comments

Дайте пример.

---

12354645 частное 4/2=2

---

Это чтобы на уши ставить учителей)

---

Но зато писать можно совсем просто и в терминах задачи)))) var a:=ReadlnString.Reverse.ToArray; Write(a[1].ToDigit div a[6].ToDigit)

---

Тогда, если ввести число, меньшее миллиона, делить придется на ноль...

---

Так в информатике считают

---

Да с 0

---

Видимо, с 0 считает.

---

Странно считаете. Разряд 1 это у Вас 5, разряд 6 - это 3. 5/3=1

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

Comments

Цикл*

---

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

---

Ясно

---

Началось в колхозе утро....

---

Ну если начинать не с 0 а с 1

---

А у математиков разряды единиц, десятков, сотен... они их не нумеруют.

---

А если по мматематическим разрядам, то как?

---

У них учитель нездоров головой. Дает им эту задачу, как пример цикла))))

---

Оказалось нужен уикле

---

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