Question

Найти произведение четных чисел оканчивающихся на 4 в паскаль

Answer 1

program dsa;

var a, proz : integer;

begin

writeln('a = ');

read(a);

if (a mod 10 = 4) then

proz := proz * a;

write(proz);

end.

Answer 2

Вот пример кода на языке Паскаль для вычисления произведения четных чисел, оканчивающихся на 4:

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

  writeln('Введите число N:');
  readln(n);

  for i := 4 to n do
  begin
    if (i mod 2 = 0) and (i mod 10 = 4) then
      proizv := proizv * i;
  end;

  writeln('Произведение четных чисел, оканчивающихся на 4:');
  writeln(proizv);

  readln;
end.

Пользователь должен ввести значение N, и программа вычислит произведение всех четных чисел, оканчивающихся на 4, начиная с 4 и до введенного значения N.