Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
Протокол - это <span>правила взаимодействия технических устройств в сети</span>
Вот каникулы у дома, завтра будет хромосома, я упал, меня подняли, подлетел, меня сломали, я иду домой больной, больно, твари, уйди вон, баба Нюра у калитки , внук иди сюда, гавнинка, что ты сделал, с тёткой светкой, ты её побил, макеткой, нет бабуль, били меня, македонцы со двора
<span>НЕ ((число <=40) и НЕ (число нечетное))
</span>1) НЕ ((37 <=40) и НЕ (37 нечетное)) ⇒ НЕ (Истина и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
2) НЕ ((40 <=40) и НЕ (40 нечетное)) ⇒ НЕ (Истина и НЕ Ложь) ⇒ НЕ Истина ⇒ Ложь
3) НЕ ((51 <=40) и НЕ (51 нечетное)) ⇒ НЕ (Ложь и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
4) <span>НЕ ((62 <=40) и НЕ (62 нечетное)) </span>⇒ НЕ (Ложь и НЕ Ложь) ⇒ НЕ Ложь ⇒ Истина
Ответ: 2) 40