На циклы. составить программу в ! ! 3. однажды умный бедняк попросил у скупого богача приюта на две недели, причем сказал: «за это я заплачу тебе в первый день 1 рубль, во второй - 2, в третий -3 и т.д., но ты будешь мне подавать милостыню: в первый день 1 копейку, во второй -2, в третий-4 и т.д. увеличивая милостыню каждый день вдвое». богач с радостью согласился. сколько барыша принесла эта сделка богачу?
Санёк1616
2
20.05.2019 22:20
5
Другие вопросы по теме Информатика
3456789012345678905
30.11.2020 16:31
rimmochkapups9p0dicd
30.11.2020 16:31
Птичка56
08.03.2019 16:10
ziketeam123
08.03.2019 16:00
Teddy62711
20.05.2021 07:35
marmishenka
10.11.2019 13:23
madina2421
10.11.2019 13:20
martynyaka
10.11.2019 13:18
Популярные вопросы
- Народ,я это понять не могу,кто может...
3 - Запиши нахождения 1/6 от 36; 9м-это 1/3 от...
2 - Про що михайлик довідався зі щердівок...
1 - Почему царь отправляет Шибанова в застенок...
3 - Там ше тварини! посогите побестрей...
2 - ів, треба терміново З ясуйте, власну та довізну сировину кожного металургійного...
2 - Загрязнение окружающей среды и здоровье человека очень кратко...
3 - Ампліндута 5см кількість коливаннь за 1хв 20 знайт шлях поплавка за 2год...
2 - 4. Розглянь малюнки на панелі інструментів Word і запишиїхні назви....
3 - здесь надо вставить правильные слова в пропуски...
2
program zadanie;
var
i, n: integer;
bednyak, bogaty: real;
begin
bednyak:=0;
bogaty:=1;
n:=1;
for i:=1 to 14 do
begin
bednyak:=bednyak+1;
bogaty:=bogaty+n;
n:=n*2;
end;
bogaty:=bogaty/100;
writeln('Заплатил бедняк богачу (рублей): ', bednyak);
writeln('Заплатил богач бедняку (рублей): ', bogaty);
writeln('ответ: Богач заплатил бедняку на ', bogaty, ' рублей больше');
end.