Найти все двузначные числа, которые делятся ** n и содержат в себе цифру n P.S. написать...

Question

Найти все двузначные числа, которые делятся на n и содержат в себе цифру n
P.S. написать программу в Паскале через цикл while

Answer 1

Var
A,N,C:byte;
B:boolean;
Begin
B:=false;
Write('N = ');ReadLn(N);
A:=10;
While A<100 do<br>Begin
if A mod N = 0 then
 Begin
 C:=A;
 While C<>0 do
  Begin
  if C mod 10 = N then B:=true;
  C:=C div 10
  End;
 if B then Write(A,' ');
 B:=false
 End;
A:=A+1
End
End.

Comments

Я имею ввиду мы программы так не пишем, Паскаль АВС

---

мы не используем эти команды

---

Я для ABC и писал=)) Там ничего сложного нет...

---

Мы не должны использовать те команды в программах

---

И ещё нужно использовать команду random

---

Строку Write('N = ');ReadLn(N); на N:=random(9)+1;

---

А что вместо false

---

Boolean - это тип данных, как integer, real и т.д.
Boolean - логический тип, то есть он принимает всего два значения: истина (true) или ложь (false) .
Чтоб её заменить, нужно чуть ли не всю прогу переписать...

---

Пожалуйста сделайте

---

Я вас прошу