Question

ребят не могу создать прграмму помогите
"
Солдат хочет купить w бананов в магазине. Ему надо заплатить k долларов за первый банан, 2k долларов — за второй и так далее (иными словами, за i-й банан надо заплатить i·k долларов).

У него есть n долларов. Сколько долларов ему придется одолжить у однополчанина, чтобы купить w бананов?"
k=3 стоймость банана
w=4 хочет купит
n=17 у него 17 долларов
z=?сколько он должен взять в долг

Answer 1

Программа на Паскале:

var
k,w,n,z,i : integer;
begin
write('Введите стоимость первого банана: ');
readln(k);
write('Введите количество бананов, которые хочет купить солдат: ');
readln(w);
write('Сколько всего денег у солдата? ');
readln(n);
z:=0;
for i:=1 to w do
begin
z:=z+(i*k);
end;
z:=z-n;
write('Чтобы купить бананы, солдату не хватает ',z,' долларов');
end.