Напишите программу поиска всех двузначных чисел, в которых есть цифра n или само число делится на n.
5-9 класс
|
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.
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)
Другие вопросы из категории
программу, которая спрашивает «Который час?» и, в зависимости от введенного
времени, выводит на экран приветствие: «Доброе утро», «Добрый день», «Добрый
вечер», «Спокойной ночи».
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.
Читайте также
(решите по паскалю).
n;
4)всех двузначных чисел
Входные данные
В первой строке записаны через пробел размеры матрицы: количество строк N и количество столбцов M ( 1 ≤ N , M ≤ 100 ). В следующих N строках записаны строки матрицы, в каждой – по M натуральных чисел, разделённых пробелами.
Выходные данные
Программа должна вывести все столбцы, в которых есть элемент, равный максимальному элементу в матрице. Каждый столбец выводится в одну строку, элементы разделяются пробелами.
количества трехзначных чисел, у которых сумма цифр является чётным числом.
ОЧЕНЬ СРОЧНО!!!