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.
var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
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.