Ответы на вопрос:
Var a: array[1..100] of integer; i: integer; c,e: real; begin for i: =1 to 100 do begin a[i]: =i; e: =a[i] div 2; c: =a[i]/2; if e=c then write(a[i],' '); end; for i: =100 downto 1 do begin a[i]: =i; e: =a[i] div 2; c: =a[i]/2; if e=c then write(a[i],' '); end; end.
Популярно: Информатика
-
dim1010280603.03.2023 23:03
-
olgabykova200605.02.2020 06:23
-
alpis200224.02.2023 10:06
-
Shkolnik98rus29.07.2021 07:28
-
Elya10000029.09.2021 21:02
-
lovevika323.10.2021 13:53
-
SuPeRGaMeRDGRST22.12.2021 05:45
-
НикитаТим27.11.2022 23:04
-
Reichale06.01.2022 20:16
-
lex909014.06.2023 11:23