Напишите программу которая находит все целые числа от 200 до 500 у которвх ровно 6 делитилей на языке паскаль
126
410
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin for var n: =200 to 500 do begin var k: =2; for var i: =2 to n div 2 do if n mod i=0 then k+=1; if k=6 then print(n) end; writeln end. результат 207 212 236 242 243 244 245 261 268 275 279 284 292 316 325 332 333 338 356 363 369 387 388 404 412 423 425 428 436 452 475 477
Популярно: Информатика
-
хитМо19.06.2021 21:44
-
али41910.04.2021 10:37
-
User528104.12.2022 01:31
-
ewvyevs24.08.2020 03:39
-
nikita140982ee27.07.2020 15:40
-
slaadkoo04.11.2021 03:01
-
beka2253506.08.2020 01:02
-
PARANO1A06.05.2021 10:47
-
yyyoooppp07.03.2022 09:05
-
artemmenshikov271530.11.2021 06:08