Задача про гвозди

@Димон223 · Регистрация: 26.01.2014

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

Вот сама задача:
Кузнец подковал лошадь. В каждой подкове 6 гвоздей (всего 24). Владельцу было предложено 2 вида оплаты:
- заплатить за все гвозди 50 рублей;
- за 1 гвоздь - 1 коп., 2 гвоздь - 2 коп., и т.д. каждый раз в два раза больше чем за предыдущий гвоздь.
Владелец предпочёл второй вариант. Во сколько раз больше он заплатит?

Вот попробовал:

Pascal

program gv;
var i,s,sum:integer;
begin
i:=1;
s:=1;
sum:=1;
repeat
i:=i+1;
s:=s*2;
sum:=sum+s;
until i=24;
write(sum);
end.

Но не уверен.

@Puporev · 26.01.2014, 16:28

Я бы конец изменил, а так верно

Pascal

1 2	writeln(sum/100:0:2,' ðóá'); write('Ýòî áîëüøå â ',sum/100/50:0:2,' ðàç')

@ermolay · 26.01.2014, 16:32

и для турбо паскаля тип для s и sum нужно longint взять, значения получаются больше, чем 32767 (максимальное типа integer).

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	26.01.2014, 16:32	3
	и для турбо паскаля тип для s и sum нужно longint взять, значения получаются больше, чем 32767 (максимальное типа integer). 0