Составить блок схему и программу. найти количество множителей для получения произведения всех натуральных чисел ,чтобы произведение не превышало 200
lizaaf
2
18.05.2019 01:30
0
Другие вопросы по теме Информатика
ванючки
24.09.2019 12:50
ulia09200413
24.09.2019 12:50
1Polina2211
24.09.2019 12:50
нпрр
24.09.2019 12:50
Repulse1
24.09.2019 12:50
SBusic
24.09.2019 12:50
Tyan789
28.12.2020 10:01
ильзат12
07.10.2019 02:40
tarasov78
21.08.2019 20:50
Популярные вопросы
- Назовите три натуральные числа, для которых число 32 а) будет кратным...
1 - Сравните числа 2log1/1 1/5 и 3log8 26...
3 - Ящик массой 150 кг имеет площадь 400 сантиметров в квадрате . вычислите...
3 - Сызба бойынша сипаттау мәтінін құрап жаз....
2 - [tex] \frac{ {7}^{3n - 2} \times {2}^{3n - 4} }{ {56}^{n - 1} }...
3 - Составь по схеме используя словосочетания было в коробке,красный...
3 - 6неліктен əдісімен қазақстан еуразиялық кеңістік диалог...
3 - Магниевую пластинку поместили в 150г раствора сульфата меди и выдерживали...
3 - Напишите мини эссе на казахском алматы каласына саяхат жасау...
2 - Жер бетінен вертикаль жоғары 30 м/с қпен лақтырылған массасы 100г...
3
var Max, i, P:integer;
Begin
Max := 200;
i := 1;
P := 1;
while (P*(i+1)<=Max)do Begin
i := i + 1;
P := P * i;
end;
writeln(i,P);
End.