Question

Напишите программу в Паскале (срочно!!!): Найти произведение чисел, оканчивающихся на 5, в промежутке от 1 до 100.

Answer 1

var i:integer;

p:int64;

begin

p:=1;

for i:=1 to 100 do if i mod 10 = 5 then p:=p*i;

writeln(p);

end.

Answer 2

Конечно, вот пример программы на Паскале для нахождения произведения чисел, оканчивающихся на 5, в промежутке от 1 до 100:

pascalCopy code
program ProizvedenieChisel;

var
  i, proizvedenie: integer;

begin
  proizvedenie := 1;
  
  for i := 5 to 100 step 10 do
  begin
    proizvedenie := proizvedenie * i;
  end;
  
  writeln('Произведение чисел, оканчивающихся на 5, в промежутке от 1 до 100: ', proizvedenie);
end.

Эта программа использует цикл for для прохода через числа от 5 до 100 с шагом 10 (так как все числа, оканчивающиеся на 5, увеличиваются на 10). Затем она находит произведение этих чисел и выводит результат на экран.