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.

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