Question

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

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.

Answer 2

var a, b, sum: integer; begin writeln('Введите два числа:'); readln(a, b); sum := a + b; if sum = 0 then writeln('yes') else begin sum := sum - 100; writeln('Сумма чисел уменьшена на 100 и равна: ', sum); end; end.