)составьте программу вычисления суммы 180 первых членов арифметической прогрессии если а1=-100 d=0,4
HomelessGod1
1
21.05.2019 05:40
9
Другие вопросы по теме Информатика
sashaageev04
29.05.2019 08:20
dimasik5671
29.05.2019 08:20
Юлия19112006
29.05.2019 08:20
vefremka
26.07.2019 17:40
Анелька0
15.09.2019 20:10
rotsib
15.09.2019 20:10
aprishkom
15.09.2019 20:10
koshkanet69
19.03.2019 20:03
хорошистка256
19.03.2019 20:05
albinka2017
19.03.2019 20:07
Популярные вопросы
- 20 за нужен синквейн александра невского .не их интернета ,своими...
1 - Докажите с вычислений, что если в числе 105 263 157 894 736 842...
2 - Разобрать предложение , и выделить грамматические основы когда...
1 - Постройте 2 гомолога 2 изомера для вещества 2,2-диметилпропановая...
2 - При скорости 54 км ч сила тяги двигателя автомобиля равна 800 н.какова...
2 - 4. какое давление оказывает гранитная колонна объемом 20 м, если...
2 - Функция задана формулой у=3х-4 а)вычислить значение у,при х=-7,х=0.5...
1 - Напишите сочинение продолжение рассказа кусака л.андреева...
1 - Запишите уравнение прямой , параллельной графику функции у=-7х-15...
3 - Найдите предложения которые построены правильно: 1.большинство...
3
program zadacha2;
var
a,d,s:real;
i:integer;
begin
i:=0;
a:=-100;
d:=0.4;
s:=0;
for i:=1 to 180 do
begin
s:=s+a;
a:=a+d;
end;
writeln('сумма первых 180 членов равна ',s:4:2);
readln;
end.