Что будет после выполнения алгоритма? стартовая позиция 0,0 сместиться в точку (1, 1) опустить перо сместиться в точку (1, 5) сместиться в точку ( 6, 5) поднять перо сместиться в точку(6, 1) опустить перо сместиться в точку(1, 1)
Замечание: Первое задание некорректно: не указано, от какого значения начинаются индексы. Тут правильнее было бы говорить о порядковом номере элемента.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var k:array[1..1000] of real; for var i:=1 to n do begin k[i]:=1/i; Print(k[i]) end end.
begin var c:=ArrRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray; c.Println; c.Transform(t->t>0?t+0.4:t=0?0.5:t); var sn:=c.Where(t->t<0).Sum; var pp:=c.Where(t->t>0).Aggregate(1.0,(x,y)->x*y); Writeln('Сумма отрицательных ',sn,', произведение положительных ',pp) end.
uses graphABC; var f:boolean; procedure planety(r,x,y:integer;c:Color); begin setpencolor(c); setbrushcolor(c); setbrushstyle(bsSolid); circle(x,y,r); end; procedure KeyPress(key:char); begin if key<>#0 then f:=false; end; var xc,yc,rs,rz,rl,r1,r2,x1,y1,x2,y2:integer; u1,u2:real; begin xc:=windowwidth div 2; yc:=windowheight div 2; rs:=90; rz:=15; rl:=3; r1:=170; r2:=25; u1:=0; u2:=0; clearwindow(clBlack); lockdrawing; onkeypress:=Keypress; f:=true; repeat clearwindow(clBlack); setbrushstyle(bsClear); setfontcolor(clWhite); textout(windowwidth div 2-80,10,'Выход любая клавиша'); planety(rs,xc,yc,clYellow); u1:=u1-0.02; u2:=u2+0.1; x1:=xc+round(r1*cos(u1)); y1:=yc-round(r1*sin(u1)); x2:=x1+round(r2*cos(u2)); y2:=y1-round(r2*sin(u2)); planety(rz,x1,y1,clBlue); planety(rl,x2,y2,clSilver); sleep(100); redraw until not f end.
