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

Question

Информатика

Ританя

16 октября, 15:05

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

+4

Ответы (2)

Знаете ответ на вопрос?

Русланка · Answer 1

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)

Эмилиана · Answer 2

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.