Var d : Real;
Begin
Readln(d);
Writeln('Длина ограждения: ',d+3.14159265*(d/2));
Writeln('Площадь: ',3.14159265*sqr(d/2)/2);
end.
2 и 4
4 - только если это не опечатка при создании темы. Есть тип Boolean
<span>Текст содержит 7 букв Русского алфавита объемом 13 байт..!!!</span>
Var
input, output: text;
x,k: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
k := 0;
read(input, x);
while x <> 0 do
begin
k := k + 1;
read(input, x)
end;
write(output, k);
close(input);
close(output)
end.
Дано: N=64 K=50
Найти: lc=?
Ршение:
lc=k*i?N=2(корень i)
64=2(корень i),2(корень 6)=2(корень i),6(бит)
lc=50*6 бит = 300 бит
<span>Ответ 300 бит</span>