Ответы на вопрос:
На паскале var a: array[1..100] of integer; i,n,t: integer; k: real; begin // на рандоме, если что заменить это вводом данных readln(n); for i: =1 to n do a[i]: = random(0,5000); // for i: =1 to n do write(a[i],' '); writeln; for i: =1 to n do begin t: =a[i]; k: =1; while k< t do k: =k*3 if t=k then writeln(t); end; end.
Популярно: Информатика
-
ArtemPlayGames07.06.2020 00:26
-
Dudosikgsgss25.01.2022 20:40
-
Ніка6412.04.2021 20:17
-
samudoma200601.09.2021 03:16
-
RafSW29.07.2022 22:20
-
Снежка41105.07.2021 21:28
-
uikyky09.05.2023 11:46
-
Юролика14.09.2020 17:56
-
shabanovkirillp02mew27.04.2022 04:12
-
павел41223.05.2021 13:51