ПОМОГИТЕ , ПОЖАЛУЙСТА!! Дано число ,если оно чётное , то умножить на 2 ,если нечётное то из под корня ; вывести полученное число .

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n:integer;begin readln(n); if n mod 2 = 0 then writeln('Чётное → ',n,'*2=', n*2) else writeln('Нечётное → корень(',n,')=', sqrt(n));end.