Составить программу, вычисляющую факториал числа n. (n! = 1·2·3·…·n) 3 цикла

//pascal abc.net v3.0 сборка 1111 //for var   i,n,r: integer; begin   readln(n);   r: =1;   for i: =1 to n do   r: =r*i;   write(r); end.//whilevar  i,n,r: integer; begin  readln(n);   r: =1;   i: =0;   while i< > n do  begin;     inc(i);     r: =r*i;   end;   write(r); end.//repeatvar  i,n,r: integer; begin  readln(n);   r: =1;   i: =0;   repeat    inc(i);     r: =r*i;   until n=i;   write(r); end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт

e=14

f=15

 

ответ 2