Написать программу, запрашивающая 3 целых числа и выводящая сумму этих чисел, если максимум этих чисел больше 12.

297

311

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

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

Ekaterina2558

Информатика

4,5(52 оценок)

//нам не обязательно находить максимум чтобы выполнить условие //pascal abc.net v3.1 сборка 1172 //продвинутый уровень begin var seq: =readarrinteger(3); if seq.any(x -> x> 12)=true then writeln(seq.sum) else writeln('нет') end. //"школьный" уровень var a,b,c: integer; begin read(a,b,c); if (a> 12) or (b> 12) or (c> 12) then writeln(a+b+c) else writeln('нет'); end. пример ввода: 1 1 13 пример вывода: 15