13.1. У двох рядках дано по одному натуральному числу (друге не менше за перше). Виведіть усі числа, що кратні зі лежать між даними
числами включно. Якщо таких Чисел немає, то нічого не виводити.
Вхід - 5 9
Вихід - 6 9
13.2. У двох рядках дано по одному натуральному пiслу (друге не
менше за перше). Bведіть кількість чисел, що кратні 7 і лежать між
даними числами включно. Якщо таких чисел немає, то нічого не вводить.
Вхід - 8 21
Вихід - 2
13.3. Турист проходить туристичний маршрут і за перший день
пройшов а кілометрів, а за кожен наступний на 100% менше. На якій день
турист подолає ввесь маршрут, якщо його довжина 5 кілометрів. У двох
рядках дано по одному натуральному числу 4 i s. введіть відповідь на
задачу,
Вхід - 20 100
Вихід - 7
begin
var n:=ReadInteger('n=');
if n<0 then Writeln(n,'! не определено: n<0')
else
if n=0 then Writeln('0!=1')
else begin
var p:BigInteger:=1;
for var i:=2 to n do p*=i;
Writeln(n,'!=',p)
end
end.
Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000