Question

Даю 100 баллов!!!


решите в Паскале с помощью цикла, очень нужно.


Кот Леопольд пошел на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (наименьшая), которую он взвешивал весила ровно L грамм. Каждая следующая рыба была на K граммов тяжелее предыдущей.


Сколько весила вся рыба, которую наловил Леопольд, если известно, что поймал он N (N> 0) рыб?


входные данные


Программа считывает с клавиатуры 3 целых числа N, L и K, введенные через пробел (N- количество рыб, L - масса первой рыбы в граммах, K - на сколько каждая следующая рыбина тяжелее предыдущей).


Исходные данные


Программа выводит на экран одно целое число - массу всей пойманной рыбы в граммах.



Примеры входных и выходных данных


Введение: 10 250 100

Вывод: 7000


Введение: 12 100 150

Вывод: 11100

Answer 1

Ответ:

var n,l,k,i:integer;

   s:real;

begin

readln(n,l,k);

s:=0;

for i:=1 to n do

 begin

  s:=s+l;

  l:=l+k

 end;

writeln(s:0:0);

readln

end.

Объяснение: