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

Question

Алеха

3 августа, 18:45

+2

Ответы (1)

Знаете ответ на вопрос?

Вит · Answer 1

Var a, b, c:real;

begin

readln (a, b, c) ;

if a+b=c then

writeln ("YES") ;

else

writeln ("NO") ;

end.