Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.
В онлайне сделать попробуй
125(восьм.)=1*8^2+2*8^1+5*8^0=64+16+5=85 (десятичн.)
34(восьм.)=3*8^1+4*8^0=24+4=28 (десятичн.)
I=k*i
I - информационный объём;
k - количество символов;
i - количество информации, которое содержит 1 символ;
I=160 (байт);
i=8 (бит) = 1 (байт);
k=I/i=160/1=160 (символов);
Ответ: 160 символов.
Const
C = -5;
M = 10;
Step = 1.5;
Var x : Real;
Begin
x:=C;
Repeat
Write('x = ',x:6:2,' L = ');
If x>5 then Writeln((x+x*x+x*x*x)/10:6:2) else
If x<-1 then Writeln(sqr(sin(x))+abs(x):6:2) else
Writeln(100:6);
x:=x+Step;
Until x>M;
end.