Какие значения будет принимать переменная х после выполнения каждого из следующих операторов? подразумевается , что а=18, b=-15, p= true if a

1. После выполнения строки:
if a<b then x:=15 else x:=-21;
Получим x = -21, так как по условию a = 18 и b = -15, значит a>b

2. После выполнения строки (в условии опечатка, лишняя i в этой строке):
if p then x:=32 else x:=638;
Получим x = 32, так как p = true;

3. После выполнения строки:
 if not p then x:=0 else x:=1
Получим x = 1, так как p = true;

ответ: x = 1

нашел раз принтер небольшой дом. залез в него и начал там жить. пришла мышь и спрашивает: "кто в теремке живет? " и принтер отвечает: "я здесь живу, заходи вместе жить будем. " . жили они хорошо. пришел модем и спрашивает "кто в теремке живет? " ему отвечают "принтер и мышь . заходи вместе жить будем."стали вместе жить. пришла клавиатура и спросила "кто тут живет? " и ей ответили " принтер, мышь и модем . заходи вместе жить будем." жили они вместе. пришел монитор и спрашивает "кто в теремке живет? " ему ответили "мест нет! ". залез монитор в теремок и начал там жить. так и появился компьютер.

program Number_of_mounth;

var month:byte;

begin

write('Введите номер месяца:');

readln(month);

if(month<1)or(month>12)then

writeln('Вы ввели неправильный номер месяца!')

else

begin

write('Название месяца:');

case month of

1:writeln('Январь');

2:writeln('Февраль');

3:writeln('Март');

4:writeln('Апрель');

5:writeln('Май');

6:writeln('Июнь');

7:writeln('Июль');

8:writeln('Август');

9:writeln('Сентябрь');

10:writeln('Октябрь');

11:writeln('Ноябрь');

12:writeln('Декабрь');

end;

write('Количество дней в месяце:');

case month of

1,3,5,7,8,10,12:writeln('31');

4,6,9,11:writeln('30');

2:writeln('28 или 29');

end;

write('Времягода:');

case month of

1,2,12:writeln('Зима');

3,4,5:writeln('Весна');

6,7,8:writeln('Лето');

9,10,11:writeln('Осень');

end;

if not (month=1)then writeln('Это не первый месяц в году');

if not (month=12)then writeln('Это не последний месяц в году');

end;

Объяснение:

Ошибка была в объявлении переменой а именно в начале блока бегин к переменой month задавался тип byte, это делает до начала блока в Var