Question

Вывести на экран все двухзначные числа, которые кратны 15 в Pascal ABC

Answer 1

var

i:integer;

begin

for i:=10 to 99 do

if ((i mod 15)=0) then write(i+' ');

end.

 

 

 

 

 

 

 

 

 

 

Answer 2

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

program MultiplesOf15;

var
  i: integer;

begin
  for i := 10 to 99 do
  begin
    if i mod 15 = 0 then
      writeln(i);
  end;
end.

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

Вы можете запустить эту программу в Pascal ABC и увидеть вывод на экран всех двузначных чисел, кратных 15.

Примечание: Указанный код является примером и может быть изменен или доработан в соответствии с вашими потребностями.

Источник: - [**Source*]](https://www.pascalabc.net/forum/index.php?topic=50.0)