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

Question

Информатика

Сильван

19 марта, 14:28

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

+4

Ответы (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