Question

2. Составить программу, которая вычисляет количество чисел кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000. 3. Составить программу, которая вычисляет факториал числа 7!

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

2. Если число кратно одновременно нескольким числам, оно кратно НОК этих чисел. НОК(3,4,5) = 3*4*5 = 60.

begin
  Range(1,1000).Where(t->t mod 60=0).Count.Println
end.

Результат
16

3. 7! = 1*2*3*4*5*6*7

begin
  var p:=1;
  for var i:=2 to 7 do p*=i;
  p.Println
end.

Результат
5040

Answer 2

1.
Program dfgd;
var x,i:integer;
begin
x:=0;
for i:=1 to 1000 do
if (i mod 3) = 0
 then if (i mod 4) = 0
        then if(i mod 5) = 0
then x:=x+1;
writeln('Чисел, кратных 3,4 и 5 - ',x);
end.

2.
Program Factorial7;
var f:longint;
i: byte;
begin
f:=1;
for i:=2 to 7 do
f:=f*i;
writeln('7! = ', f);
end.

Answer 3

Для обоих заданий, я предложу вам программы на языке Python.

1. Программа для вычисления количества чисел, кратных 3, 4 и 5 в диапазоне от 1 до 1000:

pythonCopy code
def count_multiples():
    count = 0
    for num in range(1, 1001):
        if num % 3 == 0 and num % 4 == 0 and num % 5 == 0:
            count += 1
    return count

result = count_multiples()
print("Количество чисел кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000:", result)

2. Программа для вычисления факториала числа 7:

pythonCopy code
def factorial(n):
    if n == 0 or n == 1:
        return 1
    else:
        return n * factorial(n - 1)

number = 7
result = factorial(number)
print(f"{number}! = {result}")

Запустите эти программы на своем компьютере или в онлайн-среде для Python, и вы получите результаты: количество чисел, кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000, и значение 7! (факториала числа 7).