Ответы на вопрос:
Var n,i,a: integer; begin write('введите число '); readln(n); if (n mod 2) = 0 then n: =n+1; for i: = 1 to 5 do begin a: =a+n; n: =n+2; end; write(a,' - сумма пяти нечётных чисел'); end.
Популярно: Информатика
-
uroolga19.03.2021 15:48
-
соыварщ14.07.2022 19:43
-
vredina3412.03.2022 19:19
-
lidiyamartin913.04.2023 20:10
-
Nellimaer1714.01.2021 09:31
-
mixakov0523.08.2020 09:00
-
fantomac71828.05.2020 05:10
-
makarovanasta20127.05.2023 21:00
-
yyyoooppp05.01.2023 09:05
-
135790246anna04.08.2022 05:13