Задача на арифметическую прогрессию

@Antonevichov · Регистрация: 27.01.2018

Author24 — интернет-сервис помощи студентам

Со стандартного потока ввода данных считываются значения переменных a,h,P. Разработать программу вычисляющую максимальное количество членов арифметической прогрессии s=a+(a+h)+...+(a+n*h), сумма которых не превышает заданного числа P. Если для исходных данных ответ получить невозможно, программа должна вывести 0.
__________________
Примеры:
Входные данные - 1 3 5
Вызодные данные - 2

Входные данные - 2 2 14
Вызодные данные - 3

@Puporev · 27.01.2018, 21:12

Pascal

var a,h,p,s,k:integer;
begin
writeln('a,h,p');
readln(a,h,p);
if a>=p then write(0)
else
 begin
  s:=a;
  k:=1;
  while s+h<p do
   begin
    a:=a+h;
    s:=s+a;
    k:=k+1;
   end;
  write(k);
 end;
end.

@Antonevichov 0 / 0 / 0 Регистрация: 27.01.2018 Сообщений: 2
		1
	Задача на арифметическую прогрессию 27.01.2018, 20:36. Показов 2982. Ответов 1 Метки нет (Все метки) Со стандартного потока ввода данных считываются значения переменных a,h,P. Разработать программу вычисляющую максимальное количество членов арифметической прогрессии s=a+(a+h)+...+(a+n*h), сумма которых не превышает заданного числа P. Если для исходных данных ответ получить невозможно, программа должна вывести 0. __________________ Примеры: Входные данные - 1 3 5 Вызодные данные - 2 Входные данные - 2 2 14 Вызодные данные - 3 0

	27.01.2018, 21:12

Задача на арифметическую прогрессию

Решение