Дано целое число если оно чётное то удвоить его и вывести сообщение чётное число в противном случае утроить число и вывести сообщение нечётное число

Люди, раз уж выкладываете по программированию, то пишите желательный язык а то хрен вас пойми(это же программирование, а не предмет "вангование")  то ли вам pascal, то ли вам с++ или же чего ну да ладно. вот тебе на с++: #include < iostream> using namespace std; int main() int n; cin> > n; if(n%2==0) { cout< < n*2< < " chetnoe chislo"; } else if(n%2! =0) { cout< < n*3< < " ne chetnoe chislo"; } return 0; }

Прошу: ) var a, b, c, d: integer; begin       readln(d);       a : = d div 100;       b : = d mod 100 div 10;       c : = d mod 10;       writeln(b, c, a); end.можно ещё сократить: var a, b, c, d: integer; begin      readln(d);       writeln(d mod 100 div 10, d mod 10, d div 100); end.или даже: var a, b, c, d: integer; begin      readln(d);       a : = d div 100;       writeln(d - a * 100, a); end.

Var a1, a2, q1, q2, i: integer; begin       for i : = 1000 to 9999 do       begin           a1 : = i div 1000;           a2 : = i mod 1000 div 100;           q1 : = i mod 100 div 10;           q2 : = i mod 10;           if (a1 + a2 > q1 + q2) then             writeln(i);       end; end.только выполняться сиё чудо будет секунд 30: )