Помогите пожалуйста) составьте программу вычисления суммы 180 первых членов арифметической прогрессии если а1=-100 d=0,4
5-9 класс
|
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.
Другие вопросы из категории
9216 байтах
32 Гбайтах
769 Мбайтах
512 байтах
2. Считая, что каждый символ кодируется 8 битами, определите, чему равен информационный объем следующего высказывания:
Я мыслю, следовательно, существую.
3. Перечислите устройства ввода информации.
4. В чес состоит различие между CD- b DVD-дисками?
5. В каких случаях целесообразно проводить архивирование файлов?
Читайте также
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100.
2) Составьте программу вычисления произведения чисел от 1 до 10.
3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.