21*1024=21504 байт*8=172032 бита
172032/28672= 6 бит - вес одного символа.
2^6 = 64
мощность алфавита равна 64.
1.Сканер 2. не знаю 3.Дисковод
Var
i,f, f0, f1: integer;
begin
f0 := 0;f1 := 1;
write(f0:4, f1:4);
for i := 1 to 8 do
begin
f := f1 + f0;
write(f:4);
f0 := f1;
f1 := f;
end;
end.
Тестовое решение:
0 1 1 2 3 5 8 13 21 34
Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes