Найти все двузначные числа,которые кратны числу N(программирование паскаль)

9 Дек 2021 в 19:41
123 +1
1
Ответы
1

program FindMultiples;

var
N, i: Integer;

begin
writeln('Enter a number N:');
readln(N);

writeln('Two-digit numbers that are multiples of ', N, ':');
for i := 10 to 99 do
begin
if i mod N = 0 then
writeln(i);
end;
end.

16 Апр 2024 в 20:42
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир