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

еще к слову не забывайте форматировать код. там же есть даже специальная кнопочка для этого

Answer 3

4 с конца у вас на скриншоте

Answer 4

да, сначала ошибка была. Потом исправила

Answer 5

Удачи в освоении паскаля

Answer 6

Спасибо!