Begin
for var i:=0 to 10 do writeln('Корень из ',i,' = ', sqrt(i));
end.
больше ничего не требуется, всего 3 строчки.
2 клетки. Потому что в условии описан квадрат, окаймление которого - пустота. Данным условиям удовлетворяет только 2 варианта:
С4 и D4. Во всех остальных случаях - беда)
1800БАЙТ=14400БИТ
СЛ. ЗА 1 СЕКУНДУ МОЖНО ПЕРЕДАТЬ ТЕКСТ ОБЬЕМОМ 1800 БАЙТ
var a:array[1..10000] of integer;
x,n,i: integer;
begin
readln(x,n);
for i:=1 to n do a[i]:=x+n-i;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
6 4
9 8 7 6
1/32 Мбайта = 1024/32 Кбайт = 32 Кбайт = 1024*32 Байт = 1024*32*8 бит
Па<span>мять для одного символа = 1024*32*8/65536 = 4 бита
Размер алфавита = 2^4 = 16 символов</span>