Введите 2 числа если их сумма равна 0 то на экране появляется yes иначе сумма уменьшается на 100 (паскаль)

Question

Информатика

Костяха

23 апреля, 07:59

Введите 2 числа если их сумма равна 0 то на экране появляется yes иначе сумма уменьшается на 100 (паскаль)

+4

Ответы (1)

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

Паисий · Answer 1

Var a, b, sum:integer;

begin

writeln ('Введите два числа') ;

readln (a, b) ;

sum:=a+b;

if sum=0 then

writeln ('Yes')

else

sum:=sum-100;

writeln (sum) ;

end.