16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
75 дели на 2 столбиком. пока делитель не станет больше делимого
Посмотри на фото!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Var
i, n: integer;
x, rez: real;
begin
readln(x, n);
for i:=1 to n do
rez:=rez+sin(i*x)
write(rez);
end.
Если возникнут вопросы или будут ошибки в ходе работы программы, пиши ниже.