ПАСКАЛЬ Дано число. Дать характеристику числа:
положительное, отрицательное;
чётное, нечётное;
целое, не целое.

Var a:real; k,m,p:string;
Begin writeln(Введите число); readln(a);
if a<0 then k:=отрицательное else k:= положительное;
if a=int(a) then m:= целое else m:=не целое;
if a/2=int(a/2) then p:= чётное else p:= нечётное ;
writeln(число ,a, - ,k, ; ,m, ; ,p);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.