Question

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

Решить в Паскале

Answer 1

Ответ:

• begin
• var (a, b) := ReadInteger2;
• if (a = b) or ((a..b).Count(x -> x mod 5 = 0) = 0) then Println('нет')  
• else begin
• var p := 1;
• (a..b).ForEach(procedure(x) -> if x mod 5 = 0 then p *= x);
• Println(p);
• end;
• end.

Пример работоспособности: