Регистрация
awdrg12345
26.04.2020 21:19
Информатика
Есть ответ 👍

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

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

220
328
Посмотреть ответы 2

Ответы на вопрос:

art1610
art1610
4,4(71 оценок)
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.

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

Rianariana2002
Rianariana2002
4,8(40 оценок)
// pascalabc.net 3.3, сборка 1576 от 16.11.2017// внимание! если программа не работает, обновите версию! begin  var s: =readlnstring('введите имя и фамилию: ');   var g: =readlnstring('введите год рождения: ');   var n: =readinteger('сколько раз повторить вывод? ');   loop n do writeln(s,newline,g)end.примервведите имя и фамилию: иванов сергейвведите год рождения: 24.06.2001сколько раз повторить вывод? 3иванов сергей24.06.2001иванов сергей24.06.2001иванов сергей24.06.2001

Популярно: Информатика