Радіус першої кулі дорівнює 2 см, а радіус кожної наступної збільшується на 0.5 см. Розробіть код для визначення бокових поверхонь перших шести куль.
215
374
Ответы на вопрос:
Program asd; const n=5; //любое число n var k,i: integer; a: array[1..n] of integer; begin k: =0; for i: =1to n do read (a[i]); for i: =1 to n do begin if a[i] mod 2< > 0 then k: =k+1; end; writeln ('k=',k); end.
Популярно: Информатика
-
Marina2001260821.09.2022 14:49
-
tumenka14011.06.2023 12:37
-
playerkeks07.03.2021 13:32
-
tim2701200317.03.2023 01:12
-
Liphan06.10.2021 07:32
-
platonogloblin21.03.2022 12:48
-
Ника1204000022.10.2020 03:19
-
tihayasonyap0c4ug29.07.2022 19:53
-
qqlaza01.10.2022 09:30
-
lizcarpova17.02.2021 01:48