Вычислить n-й элемент арифметической профессии a1 = 1, а2=3, а3=5, а4=7, а5=9, ... . (программа Паскаль)
136
188
Ответы на вопрос:
vаг N,I: 0. .МахInt;
А: Rеаl;
Begin
Write (‘N=’);
Readln(N);
А:=1;
For I:=2 То N Do
А:=А+2;
Writeln (‘A(‘,N:1,’)=’,A:6:0);
End.
А: Rеаl;
Begin
Write (‘N=’);
Readln(N);
А:=1;
For I:=2 То N Do
А:=А+2;
Writeln (‘A(‘,N:1,’)=’,A:6:0);
End.
Популярно: Другие предметы
-
nickartyar04.07.2022 01:27
-
tanshka12.04.2020 05:00
-
ilmir12345678903.02.2023 02:37
-
balatzkymaxp0a4t720.01.2022 23:15
-
kopustich116.10.2021 14:51
-
nigina880708.05.2020 20:33
-
Gay112230.12.2020 15:28
-
cfxdcvbnm28.05.2022 05:38
-
murat12122115.11.2020 16:06
-
Qhdbhbsgfbdgff11.01.2023 05:14