Вводится два любых числа а и b. Вычислить произведение - вопрос №131992505 от guzhowa66 17.05.2021 09:13

Question

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

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