Кто работал в болгере (gmail.com)? ! как сделать подвижное облако на своем сайте? и как сделать презентацию? мне, я ешё

Чтобы сделать презентацию, выходим на рабочий стол, нажимаем правую кнопку мыши, заходим создать и там выбираем презентация power point

1  способ: var n,i,pr: integer; begin read (n); pr: =1; if (n> =1) then begin for i: =1 to n do begin pr: =pr*i; end; end else writeln ('неправильный ввод'); writeln (pr); end. 2  способ: var n,i,pr: integer; beginread (n); pr: =1; if (n> =1) thenbeginfor i: =1 to n dobeginpr*=i; end; end elsewriteln ('неправильный ввод'); writeln (pr); end.3 способ: var n,i: integer; function fact(n: integer): integer; beginif n=1 then fact: =1else fact: =fact(n-1)*n; end; beginread(n); i: =fact(n); writeln(i); end.

Если на паскале и не совсем оптимально, то так:

var

  a, b, c, d,nmin,min: integer;

begin

  min: =maxint;

  readln(a);

  if a< min then begin

    nmin: =1;

    min: =a;

  end;

  readln(b);

  if b< min then begin

    nmin: =2;

    min: =b;

  end;

  readln(c);

  if c< min then begin

    nmin: =3;

    min: =c;

  end;

  readln(d);

  if d< min then begin

    nmin: =4;

    min: =d;

  end;

  writeln(nmin);

end.