Уменьшится в 2 раза.
в юникоде сообщение составляет 40 байт, в кои-8 - 20 байт.
значит и уменьшится на 20 байт
1. <span>(число <75) И НЕ (число чётное)
46: </span>(46<75) И НЕ (46 чётное) ⇒ Истина И Ложь ⇒ Ложь
53: (53<75) И НЕ (53 чётное) ⇒ Истина И Истина ⇒ Истина
80: (80<75) И НЕ (80 чётное) ⇒ Ложь И Ложь ⇒ Ложь
99: (99<75) И НЕ (99 чётное) ⇒ Ложь И Истина ⇒ Ложь
Ответ: <span>2) 53
2. </span><span>НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)
Пимен: </span>НЕ ("П" согласная) ИЛИ НЕ ("н" гласная) ⇒ Ложь ИЛИ Истина ⇒ Истина<span>
Кристина: </span>НЕ ("К" согласная) ИЛИ НЕ ("а" гласная) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
Ирина: </span>НЕ ("И" согласная) ИЛИ НЕ ("а" гласная) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
Александр: </span>НЕ ("А" согласная) ИЛИ НЕ ("р" гласная) ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>2) Кристина
3. </span><span>НЕ (число > 30) ИЛИ (число нечётное)
28: </span>НЕ (28 > 30) ИЛИ (28 нечётное) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
34: </span>НЕ (34 > 30) ИЛИ (34 нечётное) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
17: </span>НЕ (17 > 30) ИЛИ (17 нечётное) ⇒ Истина ИЛИ Истина ⇒ Истина<span>
45: </span>НЕ (45 > 30) ИЛИ (45 нечётное) ⇒ Ложь ИЛИ Истина ⇒ Истина
Ответ: 2) 34
1/
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, ' ');
end;
end.
2/
var i:integer;begin
for i:=15 to 40 do begin
if i mod 2=0 then write(i,' ');
end;
end.
Сколько всего бусин и кинь фотку