Question

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

Answer 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 a>b then writeln('Богач отдал больше') else writeln('Бедный отдал больше');
end.

Answer 2

Вот пример задачи на языке Паскаль, описывающей спор между богатым и бедным:

program Spor;

var
  bogach, bedny: real;
  day: integer;
  month: integer;

begin
  bogach := 0;
  bedny := 0;
  
  for day := 1 to 30 do
  begin
    bogach := bogach + 100;
    bedny := bedny + 0.01 * power(2, day-1);
  end;
  
  if bogach > bedny then
    writeln('Спор выиграл богач!')
  else if bogach < bedny then
    writeln('Спор выиграл бедный!')
  else
    writeln('Спор закончился ничьей!');
    
end.

В этой программе мы используем переменные `bogach` и `bedny` для отслеживания общей суммы, которую каждый из них отдаст в течение месяца. Мы используем цикл `for` для прохода через каждый день месяца и увеличения суммы, отдаваемой каждым из них. Затем мы сравниваем общую сумму богача и бедного и выводим соответствующее сообщение о победителе спора. Если суммы равны, то выводится сообщение о ничьей.