Написать программу на паскале
рассматривается множество целых чисел, принадлежащих отрезку [200; 9120], которые делятся на 8 и не делятся на 7, 11, 17 и 19. Найдите количество таких чисел и минимальное из них. В ответе запишите два числа через пробел: сначала количество, затем минимальное число.
tanyaoganesova
1
19.04.2020 16:45
33
Другие вопросы по теме Информатика
gogolevap1
20.04.2021 16:27
sandrokapanadze777
20.04.2021 16:25
davszbsk
20.04.2021 16:23
arrgitori
20.04.2021 16:20
y4enik5
20.04.2021 16:19
AgeraClassik
20.04.2021 16:18
Mockingbird666
20.04.2021 16:13
мамочка92
20.04.2021 16:12
spirt708ozrmv0
20.04.2021 16:10
Популярные вопросы
- Вычислить скалярное произведение векторов, если их длины равны 3 и 6, а угол между...
3 - Вспомни: единицы -это единицы первого разряда,десятки это единицы второго разряда,сотни...
3 - Радіус кола дорівеює 9 см.знайти довжину дуги кола,градусна міра якої становить...
3 - Реши с пояснением. 1)витя купил 3 набора фломастеров и альбом.за покупку он заплатил...
3 - Определите виды данных предложений 1)вот наш дом. 2)маме надо отдохнуть....
3 - Численность и динамика населения мира, крупных регионов стран....
1 - Какой объем водорода (н.у.) выделится при взаимодействии цинка количеством вещества...
2 - Сторона основания правильной треугольной пирамиды 12см, её высота в 2 раза меньше...
2 - Подалуйста! найдите г/моль решите ! na2sio3 (цифры маленькие )...
2 - Радиоэлектронный комплекс самолета-бомбардировщика включает в себя 10 объектов....
1
var cnt,min,i: integer;
begin
min:=0;
cnt:=0;
for i:=200 to 9120 do
begin
if (i mod 8 = 0) and (i mod 7 <> 0)
and (i mod 11 <> 0) and (i mod 17 <> 0)
and (i mod 19 <> 0) then
begin
if (min=0) then min:=i;
cnt:=cnt+1;
end;
end;
writeln(cnt,' ',min);
end.