Ответы на вопрос:
var n: integer;
begin
writeln('введите целое число: ');
readln(n);
if n mod 2=0 then writeln('четное')
else
writeln('четное');
if n> 0 then writeln('положительное');
if n< 0 then writeln('отрицательное');
readln ;
end.
Популярно: Информатика
-
nastya06nastik02.09.2020 17:56
-
vgirenkov15.07.2020 21:49
-
marina0710205.03.2023 01:00
-
Зефирка7816.03.2023 04:57
-
123456789121915.02.2020 15:11
-
aliana7777706.01.2022 09:59
-
anast1sava14.10.2021 05:48
-
ksyushaivleva26.07.2022 14:36
-
nastyagru103.03.2021 02:00
-
malevannyynikop082y719.01.2022 19:49