Иван увлекается математикой. Недавно на занятии кружка он узнал решения задачи о расчете разных вариантов распределения 5 разноцветных кружек в семье из пяти человек. Оказалось, что нужно посчитать произведение 1*2*3*4*5. По дороге домой Иван обдумывал составление алгоритма для решения такой же задачи с произвольным количеством обладателей кружек. Например, 300 для летнего лагеря или 2000 для большого отеля на берегу моря. Посоветуйте Ивану, каким видом цикла он может воспользоваться для решения своей задачи.

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

var

x: real;

begin

readln(x);

writeln(round(x));

end.

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.

бухгалтерия, документооборот.