Question

1. Найти произведение натуральных целых чисел, не превышающих 30 и кратных 5. Написать программу на языке паскаль

Answer 1

Определим какие числа нам нужно искать:

Не больше 30 и кратны пяти (Это для строчки If) то есть 5,10,15,20 и 25

var i,mt : integer;

begin

mt:=1

for i := 1 to 30 do

if i mod 5 =0 then mt:= mt * i;

writeln(mt);

end.

Answer 2

Конечно, вот программа на языке Pascal, которая находит произведение натуральных целых чисел, не превышающих 30 и кратных 5:

pascalCopy code
program Proizvedenie;
var
  i, proizv: integer;
begin
  proizv := 1;

  for i := 5 to 30 step 5 do
  begin
    proizv := proizv * i;
  end;

  writeln('Произведение натуральных чисел, не превышающих 30 и кратных 5: ', proizv);
  readln;
end.

Эта программа использует цикл for, чтобы перебирать числа от 5 до 30 с шагом 5 и умножать их друг на друга, начиная с 1 в переменной proizv. Результат выводится на экран.