Если ".1." несёт 4 бита информации, а ".2." в 2 раза меньше, то получается, что:
Кол-во информации в сообщении ".2." = 4 бита (оно же 0,5 байт) / 2 = 2 бита (0,25 байт).
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
Компью́терная анима́ция — вид мультипликации, создаваемый при помощи компьютера.
program m;
uses crt;
var
k,s:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
k:=i/(i+1);
s:=s+k;
end;
writeln(s:2:2);
readkey;
end.