Даны четыре целых числа. Нсйти сумму тех, которые больше пяти.

Question

Информатика

Иаким

25 мая, 20:26

Даны четыре целых числа. Нсйти сумму тех, которые больше пяти.

+3

Ответы (1)

Знаете ответ?

Глеб · Answer 1

var a, b, c, d, s: integer;

begin

readln (a, b, c, d) ;

if a >5 then s:=s+a;

if b >5 then s:=s+b;

if c >5 then s:=s+c;

if d >5 then s:=s+d;

print (s) ;

end.

Тестовое решение:

6 2 5 7

13