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

Question

Информатика

Натоля

13 мая, 03:12

Введите 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.