Вокруг земли нечего не вращается
При мощности алфавита 4096 символов для хранения одного символа требуется log(2)4094 = 12 бит (это и есть информационный вес одного символа).
<span>Количество символов в сообщении = 4*1024*8/12 </span>≈ 2730
Var
s:string;
begin
readln(s);
if s='informatika' then writeln('true') else writeln('false');
end.
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore