Question

Составьте программу в Pascal ABC которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150.Спасибо заранее

Answer 1

Program summa;

uses crt;

var
I:integer;
begin
summ:=0;
for I:=2 to 150 do begin
if ((I mod 2 = 0) and (I mod 13 = 0)) then writeln (I) end;
end.

Answer 2

Программа на Pascal ABC, которая выводит на экран числа, кратные 2 и 13 в диапазоне от 2 до 150, будет выглядеть следующим образом:

program Multiples;
var
  i: integer;
begin
  for i := 2 to 150 do
  begin
    if (i mod 2 = 0) and (i mod 13 = 0) then
      writeln(i);
  end;
end.

В этой программе мы используем цикл `for`, который перебирает числа от 2 до 150. Затем мы проверяем, является ли текущее число кратным 2 и 13 с помощью оператора `mod`, который возвращает остаток от деления. Если остаток от деления на 2 и 13 равен 0, то число кратно обоим. В этом случае мы выводим число на экран с помощью функции `writeln`.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.