*Дано* *целое* *число*....

Тема в разделе "Информатика", создана пользователем ksen4i4ek, 6 фев 2010.

  1. ksen4i4ek

    ksen4i4ek New Member

    *Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; еслинулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
    Срочнооо
     
    ksen4i4ek, 6 фев 2010
    #1
  2. Dex24

    Dex24 New Member

    Var n : integer;
    begin
    read(n);
    if n = 0 then
    write('10') else
    if n > 0 then
    write(n+1) else
    if n < 0 then
    write(n-2);
    end.
     
    Dex24, 6 фев 2010
    #2

Поделиться этой страницей

Наша группа