1)
2*60=120 байт в строке
120*40=4800 байт на старнице
4800*1500= 7 200 000 байт=7.2 Мбайт во всей книге
2)
60*40=2400 байт
2400*150=360 000 байт =360 Кбайт=0.36 Мбайт
3)
128 Кбайт= 128 000 байт
128 000\ 2=64 000 символов
4)
1.5 Кбайт=1536 байт
1536*8=12288
12288\3072=4 бит
5)
в 1 Мбайте 1572864 байт
1572864\512=3072 байта=24 576 бит размер сообщения
24 576\2048=12 бит - размер одного символа
6)
8 бит = 1 байт
48*1=48 байт в строке
48*40=1920 байт в странице
1920*8= 15 360 байт в рассказе
15 360 байт= 15 Кбайт
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>
Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
1)
<span>var </span>
<span>A:integer; </span>
<span>Begin </span>
<span>Readln(a); </span>
<span>If a<>0 then </span>
<span>If a<0 then writeln('a<0') else writeln('a>0') </span>
<span>Else writeln('a=0'); </span>
<span>End. </span>
2)
<span>Var </span>
<span>A,M,n:integer; </span>
<span>Begin
</span>readln(m);
readln(n);
<span>If m=n then writeln ('error') else </span>
<span>If m>n then a:=n else a:=m; </span>
<span>If (-20<=a) and (a<10) then writeln('Yes') else </span>
<span>Writeln('No');</span>
<span>End.</span>