Вводится два любых числа а и b. Вычислить произведение - вопрос №131983485 от EgrVir2018 15.08.2022 00:49

Question

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

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