Ответы на вопрос:
Var j,n : longint; function check(a,b : longint) : boolean; var i : longint; begin check: =true; for i: =2 to b do if ((a mod i)=0) and ((b mod i)=0) then check: =false; end; begin n: =0; for j: =100000 to 999999 do if check(j,70) then inc(n); writeln(n); end.
Популярно: Информатика
-
schestakov7810.12.2021 09:47
-
dyumaevanastasy25.06.2020 07:52
-
mfaig12.05.2023 19:07
-
Локи30128.05.2021 03:33
-
azatbaykov0019.06.2020 04:50
-
Галя442512.11.2020 05:19
-
maksshvanov06.08.2021 07:05
-
Kaytha24.06.2021 07:51
-
Bogdasha30060t01.01.2022 05:00
-
mai3107.09.2022 14:00