Напишите задачу на языке паскаль. бедный и богатый заключили спор. Богач отдает каждый день 100 рублей в течение месяца .Бедный отдает в первый день копейку каждый следующий день в 2 раза больше . в течение месяца ,кто победи...
Напишите задачу на языке паскаль.
бедный и богатый заключили спор. Богач отдает каждый день 100 рублей в течение месяца .Бедный отдает в первый день копейку каждый следующий день в 2 раза больше . в течение месяца ,кто победит спор?
Гость
Ответ(ы) на вопрос:
Гость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 a>b then writeln('Богач отдал больше') else writeln('Бедный отдал больше');
end.
Не нашли ответ?
Похожие вопросы