Question

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

Answer 1

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 2

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