var d,p,h:real;
begin
readln(d,h);
p:=3.14;
writeln('Площадь бака ', p*d*h)
d:=d*d
writeln('Площадь крышки ', p*d);
end.
Вот первое задание:
215=2 * 6^2 + 1 * 6^1 + 5 * 6^0=83
0.017=1 * 8^(-2) + 7 * 8^(-3)=0.1428
128.23=9^2 + 2 * 9^1 + 8 + 2 * 9^(-1) + 3 * 9^(-2)=107,259
Второе:
а) AF=10101111
36=11110
(1111101+10101111)-11110=100001110=2^8 + 2^3 + 2^2 + 2=270
б)125=1010101
A2=10100010
1417=1100001111
1010101+11101*10100010-1100001111=111110100000=2^11 + 2^10 +2^9 + 2^8 + 2^7 + 2^5=4000
var
i:integer;
begin
i:=10;
while i<21 do
begin
writeln(i*i*i, ', ');
i:=i+1;
end;
end.
Б- прав Боря так как в первом предложении 24 буквы а каждая буква содержит 8 бит информации из этого вытекает то что 1 предложение весит 24*8=192 бита
1 var
2 a, b, c, u, s: real;
3 Beging
4 Witeln('Введите стороны A, B , угол через пробел:');
5 readln(a, b, u);
6 c:= sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(u * (pi / 180)));
7 s:= 0.5 * a * b * sin(u * (pi / 180));
8 Writeln('S: ', s:0:2);
writeln('P: ', a + b + c:0:2);
9 End.