Задать вопрос
14 января, 22:54

Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

+2
Ответы (2)
  1. 14 января, 23:52
    0
    Var a : integer;

    begin

    readln (a) ;

    if a > 0 then a : = a + 1;

    if a < 0 then a : = a - 2;

    if a = 0 then a: = 10;

    writeln (a) ;

    end.
  2. 15 января, 01:24
    0
    Как я понял, тебе нужно составить программку, я сделал на паскале

    var a:integer;

    begin

    read (a) ;

    if a>0 then

    a:=a+1;

    if a<0 then

    a:=a-2;

    if a=0 then

    a:=10;

    write (a) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы