Var
s:real;
n,i:integer;
a:array[1..1000] of real;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы: ');
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if odd(i) then s:=s+a[i];
writeln('Сумма: ',s);
end.
Если размер символа увеличился в двое, то общий размер сообщения также стал в двое больше. Значит изначально он занимал 1 МБ. 1024*1024=1048576 символов
Высказывание будет ложным при наименьшем х = 3
<span>Рентгеновские лучи
</span><span>Телевидение
</span>
<span>Мобильный телефон
</span>
Компьютер
Интернет
Электромобиль
Игровые приставки
Самолёт и автопилот