Question

Найти произведение всех двухзначных чисел, кратных 3. Язык программирования : Pascal

Answer 1

var

pr : longint;

i : integer;

begin

pr := 1;

for i := 10 to 99 do

if (i mod 3 = 0) then

pr := pr * i;

writeln(pr);

end.

Answer 2

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

pascalCopy code
program ProizvedenieKratnyh3;

var
  i, proizvedenie: integer;

begin
  proizvedenie := 1;
  
  // Начинаем с наименьшего двузначного числа, кратного 3, то есть 12
  for i := 12 to 99 step 3 do
  begin
    proizvedenie := proizvedenie * i;
  end;
  
  writeln('Произведение всех двузначных чисел, кратных 3, равно: ', proizvedenie);
end.

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

Скомпилируйте и выполните эту программу на своей среде разработки Pascal, и она должна вывести произведение всех двузначных чисел, кратных 3.