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

Question

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

Comments

скинь фотку задачи

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