Question

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

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//Продвинутый вариант

Var
 n:integer;
begin
 readln(n);
 range(10,99).Where(x -> x mod n=0).Print(',');
end.

//"Школьный" вариант

Var
 i,n:integer;
begin
 readln(n);
 for i:=10 to 99 do
 if i mod n=0 then write(i,',');
end.

Пример ввода:
3
Пример вывода:
12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99

Answer 2

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,i:integer;
begin
  write('Введите число ');
  readln(a);
  for i:=10 to 99 do
    if i mod a = 0 then writeln(i,' кратно ',a);
end.

Тестовое решение:
Введите число 6
12 кратно 6
18 кратно 6
24 кратно 6
30 кратно 6
36 кратно 6
42 кратно 6
48 кратно 6
54 кратно 6
60 кратно 6
66 кратно 6
72 кратно 6
78 кратно 6
84 кратно 6
90 кратно 6
96 кратно 6

Answer 3

Для поиска всех двузначных чисел, которые кратны заданному числу N в языке программирования Pascal, вы можете использовать цикл и проверку кратности. Вот пример кода:

pascalCopy code
program FindMultiples;

var
  N, i: integer;

begin
  write('Введите число N: ');
  readln(N);
  
  writeln('Двузначные числа, кратные N:');
  
  for i := 10 to 99 do
  begin
    if (i mod N = 0) then
      writeln(i);
  end;
end.

В этом коде мы вводим число N с клавиатуры, а затем используем цикл for для перебора всех двузначных чисел от 10 до 99. Для каждого числа проверяется, является ли оно кратным N с помощью оператора mod. Если число кратно N, оно выводится на экран.