Уменьшится в 2 раза.
в юникоде сообщение составляет 40 байт, в кои-8 - 20 байт.
значит и уменьшится на 20 байт
Var a:longint;
begin
read(a);
writeln(a*8388608);
end.
//Pascal ABC.NET v3.0 сборка 1111
var
a:integer;
begin
a:=0;
while a<>20 do
begin;
a:=a+2;
write(a:4);
end;
<span>end.</span>
Ответ:
Объяснение:слово дорогой заменится на слово ветер.
Find what - найти
Replace - заменить
uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>end.</span>