Если вы будете неправильно сидеть за компьютером, то это может привести к искривлению позвоночника. В дальнейшем у вас начнут развиваться проблемы с осанкой, боли в спине. Компьютером можно испортить себе зрение. Вы будете плохо видеть, что может навредить вам в дальнейшей жизни.
Делал как-то, когда учился в школе.
var i:integer;
x,y,ugol,xs,ys: real;
begin
xs:=100;
ys:=100;
ugol:=30;
LockDrawing;
for i:=1 to 500 do
begin
clearwindow;
x:=xs+i*sin(ugol*pi/180);
y:=ys+i*cos(ugol*pi/180);
Circle(round(x),round(y),20);
sleep(10);
Redraw;
if y+20>windowheight then break;
end;
end.
Сразу говорю будет считать неправильно, если делаешь проверку после else
нужно писать else if ...
Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.