Даны три действительных числа: a, b, c. Проверьте, выполняется ли равенство a + b = c. Если равенство выполняется, выведите YES, если не выполняется, выведите NO.

Question

Настуня

20 октября, 14:56

+1

Ответы (1)

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

Никон · Answer 1

Var a, b, c:real;

begin

readln (a, b, c) ;

if a+b=c then

writeln ("YES") ;

else

writeln ("NO") ;

end.