Написать формулы для написания линейных программ turbo paskal : найти сумму 1-ых n-членов арифметической прогрессии, если 2-ой элемент=5 а 4-ый=6
158
492
Ответы на вопрос:
const a1=4.5; d=0.5;
var s: real; n: integer;
begin
readln(n);
s: =(2*a1*n+d*n*(n-1))/(2);
writeln(s);
end.
Популярно: Информатика
-
ник1107320.11.2020 01:55
-
Катюшка31100102.04.2020 23:15
-
ExLuSsiVe15.07.2020 04:17
-
Laki33322.04.2023 15:36
-
Настя085723.05.2022 08:16
-
hcjdbghfgyfjfh27.07.2020 09:11
-
dashayudina0401.08.2021 18:39
-
Mon4506.09.2021 20:40
-
ГхмГхм16.11.2020 06:09
-
AkameTop30.03.2021 13:45