Дано трехзначное число A. ответить на вопрос, есть ли в записи этого число цифра 5
159
422
Ответы на вопрос:
Var mas, c: array[1..20]of real; i, c_n: integer; s: real; begin randomize; for i : = 1 to 20 do begin mas[i] : = random(100) - 50; if (mas[i] > 0) and (i mod 2 = 0) then begin c_n : = c_n + 1; c[c_n] : = mas[i]; write(c[c_n], ' '); s : = s + c[c_n] * c[c_n]; end; end; writeln(); writeln('s = ', s); end.
Популярно: Информатика
-
ник502903.06.2022 14:07
-
Anna941115.09.2021 15:27
-
данил178028.07.2022 17:24
-
arscool19.05.2023 03:19
-
evgeniaberezka06.03.2020 00:48
-
ппсомо365709.02.2022 15:46
-
nikitabyshek07.02.2023 22:42
-
erik070103.01.2021 12:02
-
Martinii104.05.2022 11:18
-
sashapro22813.05.2022 17:04