Напишите программу поиска всех двузначных чисел, в которых есть цифра n или само число делится на n.

Question

Информатика

Арюша

24 апреля, 16:24

Напишите программу поиска всех двузначных чисел, в которых есть цифра n или само число делится на n.

+3

Ответы (2)

Знаете ответ?

Каллисфения · Answer 1

Uses crt;

var a, n:integer;

begin

write ('n:') ; readln (n) ;

if n>=10 then writeln ('error')

else

for a:=10 to 99 do

if (a mod n=0) or (a div 10=n) or (a mod 10=n) then writeln (a) ;

end.

Валяка · Answer 2

Dim i As Integer

Dim msg As String

Dim n As Integer

n = CInt (InputBox ("Введите n"))

For i = 10 To 99

If CStr (i). IndexOf (n) > - 1 Or i Mod n = 0 Then

msg = msg & i & vbCrLf

End If

Next

MsgBox (msg)