Ответы на вопрос:
Var a,i: integer; s: integer; sr: real; b: integer; begin writeln('введите а: '); readln(a); b: =200; for i: =a to 200 do begin s: =b+i; end; sr: =s/a; writeln('среднее значение: ',sr); end.
Популярно: Информатика
-
Dmitry32112305.07.2022 13:17
-
sumanrahmatova13.03.2020 09:39
-
MercerNani04.02.2022 01:10
-
mikityuk0315.09.2020 07:48
-
aleksaptikeev24.06.2022 14:19
-
Нукку9509.05.2023 21:01
-
Михаилович22311.06.2022 00:14
-
KimTaehyeng17.03.2021 02:32
-
smokenmyr12.02.2020 22:11
-
Sonya289614.05.2021 06:35