Ответы на вопрос:
ответ:2 6 9 без
20 18 21 5 1 труда
15 6 не
3 29 13 16 3 10 26 30 выловишь
10 и
18 29 2 12 21 рыбку
10 9 из
17 18 21 5 1 пруда
Объяснение:
Держи! 1) var i,n,result: integer; begin read(n); result: =0; for i: =1 to n do begin result: =result+i; end; write(result); end. 2) var i,n,increase,result: integer; massive = array[1..1000] of integer; // ищем делители в диапазоне 1-1000 begin read(n); for i: =1 to 1000 do begin if((n mod massive[i])=0) then begin increase: =increase + 1; end; end; result: =increase; write(result); end.
Популярно: Информатика
-
FreonTime05.07.2022 08:03
-
klokova049otccwt20.01.2021 16:57
-
versuspro9929.08.2022 17:57
-
PolinaReyblogger12.08.2022 18:22
-
910293643510.03.2020 03:13
-
1235285858528.11.2021 14:47
-
vualada28.03.2020 03:57
-
princessTonya25.12.2021 14:41
-
Sundywer13.09.2022 10:09
-
камаз901.07.2021 06:36