Для Pascal ABC
uses GraphABC;
begin
Window.Title := 'Apple';
var y,y0,x,t: integer;
Brush.Color := clGreen;
y0:=70;
x:=70;
LockDrawing;
for t := 0 to 8 do
begin
y:=y0+5*t*t;
Window.Clear(clWhite);
Circle(x,y,50);
Redraw;
Sleep(100);
end;
end.
8(2^3) символов => каждый символ весит 3 бита
3б*120 = 360 Бит
45%=0,45
65%=0,65
4%=0,04
1)0,45*0,65:0,4=0,73125
Ответ:0,73125
НЕ (число > 60) И (число > 30)
(число < 60) И (число > 30)
30 < число < 60 (Так как "И")
число ∈ (30 ; 60)
Var x,y:real; n:integer;
function f(x:real;n:integer):real;
var i,st:integer;
begin
st:=1;
for i:=1 to n do st:=st*2;
f:=sin(x)*st;
end;
begin
writeln('x, n:');
readln(x,n);
y:=f(x,n);
writeln('x = ',x,' y = ',y);
end.
Пример:
x, n:
2 5
x = 2 y = 29.0975176584218