Напишите задачку на языке паскаль. бедный и обеспеченный заключили спор. Богач

Напишите задачку на языке паскаль. бедный и богатый заключили спор. Богач отдает каждый денек 100 рублей в течение месяца .Бедный дает в 1-ый денек копейку каждый последующий денек в 2 раза больше . в течение месяца ,кто одолеет спор?

Задать свой вопрос
1 ответ
Var a,b:real; i,d:integer; begin a:=0; b:=0; d:=1; for i:=1 to 30 do begin  a:=a+100;  b:=b+d;  d:=d*2;  end; b:=b/100; if agt;b else writeln(Бедный дал больше); end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт