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

Question

Алеха

23 августа, 05:24

+3

Ответы (1)

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

Вит · Answer 1

Var a, b, c:real;

begin

readln (a, b, c) ;

if a+b=c then

writeln ("YES") ;

else

writeln ("NO") ;

end.