Знайти добуток чисел вiд 1 до P, кратне 3. Число P вводиться з клавиатуры.
139
441
Ответы на вопрос:
Program z; var i,s,k: integer; begin s: =0; k: =0; for i: =-30 to 30 do if i mod 3=0 then begin s: =s+i; k: =k+1; end; write(s,' ',k); end. а тебе -30 и 30 включительно?
Популярно: Информатика
-
vaper414.12.2020 14:52
-
nik2204122.02.2022 17:28
-
LimeAnoW15.05.2021 02:27
-
Petrovaaleksanik01.10.2022 13:56
-
Рюзаки123.05.2021 10:59
-
Женёк200645704.11.2020 02:36
-
krit304.11.2020 18:10
-
Abdresh30.03.2020 20:00
-
asdf203314.04.2021 03:21
-
SophiaSaliuk29.07.2020 23:11