Вопрос по информатике:
2. Составить программу, которая вычисляет количество чисел кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000.
3. Составить программу, которая вычисляет факториал числа 7!
Пожаловаться
- 08.07.2018 16:41
- Информатика
- remove_red_eye 11074
- thumb_up 46
Ответы и объяснения 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.
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.
Пожаловаться
- 09.07.2018 18:54
- thumb_up 37
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
Внимание! Если программа не работает, обновите версию!
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
Пожаловаться
- 01.01.1970 00:00
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы