Программирование. Помогите решить
Если можно, в программе PascalABC.
Если в другой программе, то укажите, пожалуйста, в какой. Сами задачи:
5.С консоли считываются значения переменных a, h, P. Разработать программу вычисляющую количество членов арифметической прогрессии s = a + (a + h) + .+ (a + n*h), сумма которых не превышает заданного числа P. Исходные данные являются целыми числами в диапазоне от -10^6 до 10^6. Если для исходных данных ответ получить невозможно, программа должна вывести 0.
6.С консоли считываются данные одномерного массива размером 20 элементов. Преобразовать исходный массив, вычитая из значения каждого элемента среднее арифметическое значение отрицательных элементов массива. Исходные данные являются целыми числами в диапазоне от -10^6 до 10^6
Запахло конкурентами)))
Пока прочитал, голова заболела,
Потемнело в глазах и в ушах загудело,
Аритмия и тик, и давление поднимается,
А ведь кто-то же в этом во всем разбирается.
Для кого-то все эти значки, цифры, числа
Не китайская грамота, а наполненны смыслом
И значением стройным, а не абракадаброй,
Я же в этом умней лишь ведерка со шваброй.
Мне все формулы эти твердят лишь одно,
Что не сможет летать, кому ползать дано,
И в стихе пожелаю лишь, искреннем, чистом
Я всех благ и удач этим всем программистам.
Вопрос, зачем идти на программиста?
5.
var a,b,c,i,h,p,s:integer;
begin
s:=0;
b:=0;
c:=0;
i:=0;
readln(a);
readln(h);
readln(p);
while s<=p do
begin
b:=b+1;
if b = 1 then s:=a;
if b>1 then
begin
c:=c+1;
s:=s+(a+c*h);
end;
if s<=P then i:=i+1;
end;
writeln(i);
end.
5.
Program Summ;
Var a,h,P,s : integer;
Begin
Writeln ('введите число h');
Write (X);
Writeln ('введите число a');
Write(a);
Readln (a,h);
s:=a + (a + h) + .+(a + n*h);
If s>10000000 then writeln ('0')
if s<-10000000 then ('0')
Write (s);
End.
★ВРОДЕ ТАК★