// Блок схема в приложении.
const
max = 100;
var
sum:word;
index:byte;
BEGIN
sum:=0;
for index:=1 to max do
if not odd(index) then
sum:=sum+index;
writeln('Сумма четных чисел от 1 до ', max ,' = ', sum);
END.
<span> 1)зрительная,тоесть когда мы что-то читаем.2)Слуховая,когда мы слышим информацию3)Обанятельная4)осязательная.</span>
Ответ: 1011
Объяснение:
Условие Фано простыми словами:
Никакое кодовое слово не может быть началом другого кодового слова.
Буква Ю не может кодироваться как 0, так как кодирование буквы К начинается с 0.
Буква Ю не может кодироваться как 1, так как кодирование других букв начинается с 1.
Буква Ю не может кодироваться как 01, так как кодирование других букв начинается с 01.
Буква Ю не может кодироваться как 10, так как кодирование букв С и Л начинается с 10.
Буква Ю не может кодироваться как 100, так как кодирование буквы С начинается с 100.
Буква Ю не может кодироваться как 101, так как кодирование буквы Л начинается с 101.
...
...
...
И так далее.
var a:array[1..250] of string; size:real; i,n:integer; text:string;
begin
writeln('daite N'); readln(n);
for i:=1 to n do
begin
readln(size);
if (size>1024) or (size=1024) then
begin
size:=size/1024;
str(size:0:2,text);
a[i]:=text+' kb';
text:=''; size:=0;
end else
begin
str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;
end;
end;
for i:=1 to n do write(a[i],' '); readln;
end.