Ответы на вопрос:
uses crt;
var x: integer;
begin
write('Введите x = '); read(x);
if x > 0 then
begin
textcolor(red);
write('положительное')
end
else
begin
textcolor(blue);
write('не положительное');
end;
end.
Популярно: Информатика
-
Esenbekmalika3013.04.2022 01:00
-
okszav30.10.2022 01:36
-
egorkamarkov014.08.2021 15:21
-
Говницооо09.11.2020 03:28
-
sashamissmalevozgk5608.09.2021 04:24
-
BettaPi200323.03.2020 12:48
-
дима4класс104.03.2020 14:53
-
hopas113.11.2021 21:09
-
katerina239830.11.2020 04:07
-
Magic082509.02.2023 00:38