234 МБ это 234000 в бiтах
==================================================================
==================================================================
==================================================================
С клавиатуры вводится число x, затем проверяется: если это число x меньше -3, то "y" будет -3; если -3 меньше или равно x, а x меньше нуля, то y=x и т.д
121(10)=171(8)=1111001(2)=79(16)=121(10)
Для 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.
Транслятор,источник,станция, передатчик, что-нибудь из этого.