Даю 100 баллов!!!
решите в Паскале с помощью цикла, очень нужно.
Кот Леопольд пошел на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (наименьшая), которую он взвешивал весила ровно L грамм. Каждая следующая рыба была на K граммов тяжелее предыдущей.
Сколько весила вся рыба, которую наловил Леопольд, если известно, что поймал он N (N> 0) рыб?
входные данные
Программа считывает с клавиатуры 3 целых числа N, L и K, введенные через пробел (N- количество рыб, L - масса первой рыбы в граммах, K - на сколько каждая следующая рыбина тяжелее предыдущей).
Исходные данные
Программа выводит на экран одно целое число - массу всей пойманной рыбы в граммах.
Примеры входных и выходных данных
Введение: 10 250 100
Вывод: 7000
Введение: 12 100 150
Вывод: 11100
решите в Паскале с помощью цикла, очень нужно.
Кот Леопольд пошел на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (наименьшая), которую он взвешивал весила ровно L грамм. Каждая следующая рыба была на K граммов тяжелее предыдущей.
Сколько весила вся рыба, которую наловил Леопольд, если известно, что поймал он N (N> 0) рыб?
входные данные
Программа считывает с клавиатуры 3 целых числа N, L и K, введенные через пробел (N- количество рыб, L - масса первой рыбы в граммах, K - на сколько каждая следующая рыбина тяжелее предыдущей).
Исходные данные
Программа выводит на экран одно целое число - массу всей пойманной рыбы в граммах.
Примеры входных и выходных данных
Введение: 10 250 100
Вывод: 7000
Введение: 12 100 150
Вывод: 11100
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: