Question

Вводится два любых числа а и b. Вычислить произведение чисел кратных 5,от меньшего из введенных чисел,до большего. Если числа a и b одинаковы или в данном диапазоне таких чисел нет, то в ответе написать «нет» Решить в Паскале

Answer 1

Ответ:

• begin
• var (a,b) := ReadInteger2;
• var r := (a..b).Where(x -> x mod 5 = 0);
• if (a=b) or (r.Count = 0) then Print('нет')  
• else Print(r.Product)
• end.

Пример работы:

Answer 2

Вот пример решения данной задачи на языке Паскаль:

pascalCopy code
program MultiplyBy5;

var
  a, b, i, product: Integer;
  foundMultiple: Boolean;

begin
  foundMultiple := False;
  
  // Ввод чисел a и b
  Write('Введите число a: ');
  Readln(a);
  
  Write('Введите число b: ');
  Readln(b);
  
  // Проверка на равенство чисел a и b
  if a = b then
  begin
    Writeln('нет');
    Exit;
  end;
  
  // Находим меньшее число
  if a > b then
  begin
    i := b;
    b := a;
  end
  else
  begin
    i := a;
  end;
  
  // Ищем и умножаем числа кратные 5
  product := 1;
  while i <= b do
  begin
    if i mod 5 = 0 then
    begin
      product := product * i;
      foundMultiple := True;
    end;
    
    Inc(i);
  end;
  
  // Вывод результата
  if foundMultiple then
    Writeln('Произведение чисел кратных 5: ', product)
  else
    Writeln('нет');
end.

При выполнении программы вы будете запрошены ввести два числа a и b. Затем программа проверит, являются ли числа равными или нет. Если они равны, программа выведет "нет". В противном случае, программа найдет меньшее число и начнет искать числа кратные 5 в диапазоне от меньшего числа до большего. Если будет найдено хотя бы одно такое число, программа выведет их произведение. В противном случае, программа также выведет "нет".