program DivideByNumber va i, number: integer begi writeln('Введите число, на которое будем делить:') readln(number) if (number < 1) or (number > 99) the writeln('Введите число от 1 до 99' els begi writeln('Двузначные числа, которые делятся на ', number, ':') for i := 10 to 99 d begi if (i mod number = 0) the writeln(i) end end end.
Пользователь вводит число, на которое мы будем делить двузначные числа. Затем программа выводит на экран все двузначные числа, которые делятся на это число нацело. В приведенном коде предполагается, что пользователь вводит только числа от 1 до 99.
Пример кода на Паскале:
program DivideByNumberva
i, number: integer
begi
writeln('Введите число, на которое будем делить:')
readln(number)
if (number < 1) or (number > 99) the
writeln('Введите число от 1 до 99'
els
begi
writeln('Двузначные числа, которые делятся на ', number, ':')
for i := 10 to 99 d
begi
if (i mod number = 0) the
writeln(i)
end
end
end.
Пользователь вводит число, на которое мы будем делить двузначные числа. Затем программа выводит на экран все двузначные числа, которые делятся на это число нацело. В приведенном коде предполагается, что пользователь вводит только числа от 1 до 99.