N=2^i
128=2^i
I = 7 бит
20*7=140бит
По моему так)
Var
a, f, t, S: real;
begin
Write('Введите длину стороны ромба: '); Readln(a);
Write('Введите величину острого угла ромба в градусах: '); Readln(f);
t := f * pi / 180;
S := sqr(a) * sin(t);
Writeln('Площадь ромба равна ', S, ' кв.ед.')
end.
Тестовое решение:
Введите длину стороны ромба: 14.3
Введите величину острого угла ромба в градусах: 58.7
Площадь ромба равна 174.728286173858 кв.ед.
1) program _1;
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
123.79.172.213
тупо соединяешь из вместе
Вот. На фото все видно.
В 3-м примере мы прибавляем тех кто умеет играть только в шашки и только в шахматы и тех, кто играет в шашки и шахматы одновременно