Другие вопросы по теме Информатика
ulyanaKnyazeva10
14.05.2020 14:41
alima1010
14.05.2020 14:42
blubondovro0a
14.05.2020 14:42
ju1227
14.05.2020 14:43
kilala00
14.05.2020 14:40
45667889
16.01.2022 21:36
arinociIfca32
16.01.2022 21:40
армен459
16.01.2022 21:54
Популярные вопросы
- По поданным началом составь и запиши текст(5-7 предложений). было теплое солнечное...
1 - Узнать когда родилась и когда умерла пионер герой камилия шага. заранее огромное!...
3 - А)сколько трёхзначных чисел можно составить из цифр 1,3,5? б) сколько трёхзначных...
2 - Составь краткую запись с схемы,реши с уравнения,за шапку и шарф заплатили 190...
1 - Автомобиль спускается с горы с выключенным двигателем.за счёт какой энергии движется...
2 - Реши примеры 450-30умножитьна 4 +70 разделить на 10 решите с обьяснением...
1 - :решение, ответ. №1 а) в бочке 70 л воды. на полив грядки с морковью израсходовали...
2 - Из списка выберите проблемы,которые горожане (жители петербурга)должны были решать...
3 - На трех полках стоит 45 книг причем причем на одной в два раза меньше чем на каждой...
1 - Найди пару слов с одинаковым количеством звуков: 1. местный - поезд 2. вдруг -...
3
var x:Integer;
begin
WriteLn('Введите целое число: ');
ReadLn (x);
if x > 0 then
WriteLn('x, равная', x, 'больше 0')
else
if x < 0 then
WriteLn('x, равная', x, 'меньше 0')
else
WriteLn('x, равная', x, 'равно 0')
end.