Question

Программа в паскале для вывода 3-значных чисел делящихся на 3 и 5 без остатка

Answer 1

Ответ:

Var a:array[100..999] of longint; i:longint;

begin

For i:=1 to 999 do

If ((a[i] mod 3) = 0) and ((a[i] mod 5) = 0) then

writeln(a[i]) ;

End.

Попробуй. И поставь как лучший пж

Answer 2

Для написания программы на языке Паскаль, которая выводит 3-значные числа, которые делятся на 3 и 5 без остатка, можно использовать следующий код:

pascalCopy code
program ThreeDigitNumbers;

var
  number: integer;

begin
  writeln('3-значные числа, делящиеся на 3 и 5 без остатка:');
  for number := 100 to 999 do
  begin
    if (number mod 3 = 0) and (number mod 5 = 0) then
      writeln(number);
  end;
end.

Описание программы:

1. Мы объявляем переменную number, которая будет использоваться для перебора всех 3-значных чисел.
2. Затем начинается главный блок программы (begin ... end).
3. С помощью цикла for мы перебираем все числа от 100 до 999 (включительно).
4. Внутри цикла проверяем, делится ли текущее число number на 3 и 5 без остатка с помощью операторов mod. Если оба условия выполняются, то выводим число на экран с помощью процедуры writeln.

При запуске программы на выполнение, она выведет все 3-значные числа, которые делятся и на 3, и на 5 без остатка.