Задача про гвозди - Turbo Pascal

Формулировка задачи:

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


textual

Код к задаче: «Задача про гвозди - Turbo Pascal»

writeln(sum/100:0:2,' ðóá');
write('ГќГІГ® áîëüøå Гў ',sum/100/50:0:2,' Г°Г*Г§')
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.933 из 5

Источник
Похожие ответы