Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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