ребят не могу создать прграмму помогите
"
Солдат хочет купить w бананов в магазине. Ему надо заплатить k долларов за первый банан, 2k долларов — за второй и так далее (иными словами, за i-й банан надо заплатить i·k долларов).
У него есть n долларов. Сколько долларов ему придется одолжить у однополчанина, чтобы купить w бананов?"
k=3 стоймость банана
w=4 хочет купит
n=17 у него 17 долларов
z=?сколько он должен взять в долг
Ответы
Ответ дал:
0
Программа на Паскале:
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.
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.
Приложения:
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад