Question

Напишите на языке Паскаль, чтоб было все понятно, пожалуйста) Помогите пожалуйста решить задачу.Когда Василисе Прекрасной исполнилось 18 лет, Кощей Бессмертный решил взять её замуж. Василиса спросила, сколько у Кощея сундуков с золотом. Кащей сказал, что у него 27360 сундуков полных золота, и каждый год прибавляется еще по 33 сундуков. Василиса обещала выйти за Кащея тогда, когда у него будет 30000 сундуков полных золота. Сколько лет будет невесте Кощея в день свадьбы?

Answer 1

                                         PascalABC.NET

begin

 var age_V := 18;

 var chests := 27360;

 while chests < 30000 do begin

   chests += 33;

   age_V += 1;

 end;

 print('Невесте будет:', age_V, 'лет')

end.

Answer 2

Конечно, вот решение задачи на языке Паскаль:

pascalCopy code
program WeddingDay;
var
  age, chests: Integer;

begin
  age := 18;
  chests := 27360;

  while chests < 30000 do
  begin
    chests := chests + 33;
    age := age + 1;
  end;

  writeln('Возраст невесты Кощея в день свадьбы: ', age);
end.

В этой программе мы используем цикл while, чтобы увеличивать количество сундуков chests каждый год на 33 до тех пор, пока количество сундуков не достигнет или превысит 30000. Каждый год мы также увеличиваем возраст age невесты на 1. Когда цикл завершается, мы выводим возраст невесты Кощея в день свадьбы на экран.