Из ряда натуральных чисел от 1 до 2000 вычеркнули все числа, которые делятся на 2, затем все числа, которые делятся на 3, затем все числа, которые делятся на 5, а затем все числа, которые делятся на 7. сколько чисел осталось?
199
247
Ответы на вопрос:
На паскале var a: array [1..5] of integer; i: integer; p, m: integer; begin for i: =1 to 5 do begin readln(a[i]); if a[i] < 0 then m: = m+a[i] else p: =p+a[i]; end; writeln(p/abs(m)); end.
Популярно: Информатика
-
aiwaab931.10.2021 07:34
-
danilfkr12.06.2023 19:48
-
Кея156324.09.2020 15:56
-
14738749229.03.2021 23:48
-
HeZnAiKaxXx07.11.2022 21:30
-
Kraddy1431.01.2020 05:29
-
victoriaanna113.12.2020 04:24
-
Миша345616.10.2021 06:28
-
mynomynou09.01.2021 23:41
-
azzzz214.07.2021 14:18