Реши на перестановку чисел ,расположи три числа 9. 5. 7, в порядке возрастания , используя алгоритм.
170
215
Ответы на вопрос:
Program z1; var s: integer; i,j: byte; begin s: =0; for i: =5 to 20 do begin for j: =1 to i do begin if (i mod j)=0 then begin s: =s+j end end end; write('summa=',s); readln end.
Популярно: Информатика
-
lenin148830.09.2021 09:04
-
alenapolyakova523.05.2020 04:54
-
меор04.01.2023 02:33
-
SonyaNik22815.10.2022 21:12
-
dghtf27.05.2023 20:11
-
skydux29.06.2021 16:18
-
rortat3222.02.2023 04:10
-
ГГЧОЧОЧ10.02.2021 02:39
-
ЭдикБел11.05.2023 06:57
-
lotoskei05.08.2020 02:01