c клавиатуры вводится...

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

  1. ГостьЯ

    ГостьЯ New Member

    c клавиатуры вводится число если четное то +1 если нет то -3
     
    ГостьЯ, 28 фев 2010
    #1
  2. UNnameD

    UNnameD New Member

    var a:integer;
    begin
    readln (a);
    if (a mod 2=0) then a:=a+1
    else
    a:=a-3;
    writeln (a);
    end.
     
    UNnameD, 28 фев 2010
    #2

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

Наша группа