паскаль

@Наталия Владим · Регистрация: 17.11.2010

Студворк — интернет-сервис помощи студентам

В течении двух недель человек заключает пари на скачках. В первый день он делает ставку в 1 фунт и проигрывает. во второй день,чтобы возместить свой выигрыш, он делает ставку в 2 фунта и проигрывает. На третий день он ставит 3 фунта, но опять проигрывает. Он упрямо продолжает увеличивать на 1 фунт свою ставку, но продолжает проигрывать. Написать программу,выводящую на экран сумму денег,проигранную этим человеком к концу второй недели

@pryda · 21.11.2010, 21:55

Pascal

const days=14;
var i,d:integer;
begin
i:=0; d:=1;
while d<=days do
begin
  i:=i+d;
  inc(d);
end;
writeln('Через ',days,' дней мужик проиграет ',i,' фунтов');
readln;
end.

@Наталия Владим 0 / 0 / 0 Регистрация: 17.11.2010 Сообщений: 8
		1
	паскаль 21.11.2010, 21:50. Показов 1355. Ответов 1 Метки нет (Все метки) В течении двух недель человек заключает пари на скачках. В первый день он делает ставку в 1 фунт и проигрывает. во второй день,чтобы возместить свой выигрыш, он делает ставку в 2 фунта и проигрывает. На третий день он ставит 3 фунта, но опять проигрывает. Он упрямо продолжает увеличивать на 1 фунт свою ставку, но продолжает проигрывать. Написать программу,выводящую на экран сумму денег,проигранную этим человеком к концу второй недели 0

Опции темы

паскаль

Решение