27(10)=11011(2)
11011+11011=22022
22022*110=2422420(2)
Чувак это не отака вирусов
збросить данные и это поможет
но придестся заново все скачивать или что у тебя там есть
var
x,b: integer;
begin
read(x)
b:=(Abs(Sin(Sqr(x))+Cos(x)))/Power(x+2,1/3)
end.
Var
A,ae:real;
N,i:integer;
Begin
WriteLn('Введи начальный рост');
ReadLn(A);
WriteLn('Введи кол-во месяцев');
ReadLn(N);
WriteLn('Введи прирост в месац в %');
ReadLn(ae);
ae:=ae/100;
For i:= 1 to N do
A:=A*(1+ae);
WriteLn(A);
ReadLn
End.