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

1

Ответы и объяснения

  • Участник Знаний
2014-03-06T18:24:13+00:00
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.