Задать вопрос
13 мая, 03:12

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

+2
Ответы (1)
  1. 13 мая, 07:10
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Введите 2 числа если их сумма равна 0 то на экране появляется yes иначе сумма уменьшается на 100 (паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы