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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
