Вводится два любых числа а и b. Вычислить произведение - вопрос №131983485 от denisstar756 02.07.2022 21:21

Question

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

denisstar756 · Answer

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.Пример работы:...