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

Question

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

Answer 1

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