//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadReal;
write('S=',a*a,'; P=',4*a);
end.
Задание 1.
1 байт = 8 бит.
7 байт = 56 бит.
2Кб = 2000 бит.
10 байт = 80 бит.
25 байт = 200 бит.
Задание 2.
24 бита = 3 байта.
72 бита = 9 байт.
8 Кб = 1000 байт.
96 бит = 12
184 бит = 23 байта.
4 Кб = 500 байт.
Задание 3.
3 Мб = 24000 КБ.
24576 бит = 196,608 КБ.
2048 байт = 16,384 КБ.
10240 байт = 81,92 КБ .
2 Мб = 16000 КБ .
8 Мб = 64000 КБ.
5 байт = 40 бит.
8 килобайт = 8000 байт
1 мегабайт = 1000000 байт
88 бит = 11 байт
20 терабайт = 20000 гигабайт
9 байт = 72 бит
18 килобайт = 18000 байт
4 мегабайта = 4000000 байт
152 бита = 19 байт
4 терабайт = 4000 гигабайт
25 байт = 200 бит
30 килобайт = 25000 байт
9 мегабайт = 9000000 байт
6 килобайт = 48000 бит
288 бит = 36 байт
Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.