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

3. Составить программу, которая вычисляет факториал числа 7!

Question

Информатика

Линуша

7 ноября, 14:30

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

3. Составить программу, которая вычисляет факториал числа 7!

+4

Ответы (1)

Знаете ответ на вопрос?

Святослава · 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.