Определить, сколько чисел необходимо, чтобы их сумма оказалась больше заданного числа - Pascal ABC

Формулировка задачи:

Написать программу, которая находит сколько чисел необходимо, чтобы сумма 5+(2*5) + (3*5) +...(N*5) оказалась больше заданного числа.

Код к задаче: «Определить, сколько чисел необходимо, чтобы их сумма оказалась больше заданного числа - Pascal ABC»

textual
var sum,i,a:integer;
begin
writeln('введите a');
readln(a);
for i:=1 to 100000 do begin
sum:=sum+i*5;
if sum>a then break;
end;
writeln('ответ - ',i,' чисел(а)');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ