//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
i, n: integer;
p: BigInteger;
begin
write('Введите число N ');
readln(n);
p := 1;
for i := 1 to n do p := p * i;
writeln( 'Произведение чисел от 1 до ',n,' равно : ',p);
end.
Тест №1:
Введите число N 5
Произведение чисел от 1 до 5 равно : 120
Тест №2:
Введите число N 100
Произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
А ты не из 206 гр.?)))))))))))))))))))))))))))))
Таких чисел четыре. Первое, 110(2) = 6(10)
Следующее получится, если добавить старший бит, равный 1, 1110(2) = 14(10), затем добавляется 2 бита 10 -> 10110(2) = 22(10)
и последнее число , добавляется 2 бита 11
-> 11110(2) = 30(10)
Или другими словами, к числу 110(2) = 6(10)
добавляются числа, кратные 8, 6+8, 6+16, 6+24
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
Ответ :
в ) отделяет один раздел програми от другого...
