1) Даны два целых числа А и В (вводятся с клавиатуры, A

1) vara,b,i,n: integer; beginn: =1; readln (a); readln (b); for i: =a to b don: =n*i; writeln (n); end. 2) varn,s: integer; beginread (n); s: =0; repeats: =s+(n mod 10); n: =n div 10; until n=0; writeln (s); end. 3) varn,k,i: integer; beginread (n); for i: =100 to 999 do beginif (i div 100)*(i div 10) mod 10)*(i mod 10)=n thenk: =k+1; end; writeln (k); end.