Ответы на вопрос:
Паскаль abc.net: var s,i,n: integer; begin writeln('введите n'); read(n); i: =1; s: =1; while i< =(2*n-1) do begin s*=i; i+=2; end; writeln('произведение равно ',s); end.
Program program1; var a: array [1..10] of integer; int: integer; begin for int: =1 to 10 do begin a[int]: =rndom(20)+1; write(a[int],' ') end; writeln; for int: =1 to 10 do if (a[int]> 5) and (a[int]< 15) then write(a[int],' ') end.
Популярно: Информатика
-
megamerezhnikova17.04.2020 04:01
-
samsunguser22.03.2020 01:51
-
Vlaad55505.11.2020 10:43
-
azavidov0029.02.2020 21:29
-
Lenna23130.11.2021 22:53
-
darivorobey27.08.2021 04:48
-
denihaev3024.07.2022 19:28
-
1sanita18.05.2022 09:19
-
milka195130.09.2020 22:12
-
manyaovakimyan17.09.2022 09:41