Ребят не могу создать прграмму помогите

"

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

У него есть n долларов. Сколько долларов ему придется одолжить у однополчанина, чтобы купить w бананов?"

k=3 стоймость банана

w=4 хочет купит

n=17 у него 17 долларов

z=? сколько он должен взять в долг

Question

Информатика

Асмабике

9 января, 13:12

Ребят не могу создать прграмму помогите

"

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

У него есть n долларов. Сколько долларов ему придется одолжить у однополчанина, чтобы купить w бананов?"

k=3 стоймость банана

w=4 хочет купит

n=17 у него 17 долларов

z=? сколько он должен взять в долг

+1

Ответы (1)

Знаете ответ?

Човка · 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.