Question

Психологи рекомендуют учитывать оптимальное соотношение возрастов при вступлении в брак. Оно таково: возраст невесты равен половине возраста жениха плюс 7. Составьте программу для определения, подходят ли жених и невеста друг другу по возрасту по возрасту(составьте программу pascal ABC)

Answer 1

uses crt;

var vz,vn:real;

begin

write('введите возраст невесты:');

readln(vn);

write('введите возраст жениха:');

readln(vz);

if vn=(vz/2)+7 then writeln('Оптимальное соотношение') else writeln('Соотношение не идеально')

end.

Answer 2

Программа на языке Pascal ABC для определения, подходят ли жених и невеста друг другу по возрасту, с учетом оптимального соотношения возрастов (возраст невесты равен половине возраста жениха плюс 7):

program AgeCompatibility;

var
  ageBride, ageGroom: integer;

begin
  // Ввод возраста невесты
  writeln('Введите возраст невесты:');
  readln(ageBride);
  
  // Ввод возраста жениха
  writeln('Введите возраст жениха:');
  readln(ageGroom);
  
  // Проверка соотношения возрастов
  if ageBride = (ageGroom div 2) + 7 then
    writeln('Жених и невеста подходят друг другу по возрасту.')
  else
    writeln('Жених и невеста не подходят друг другу по возрасту.');
  
  readln;
end.

Программа запрашивает возраст невесты и жениха, а затем проверяет, соответствует ли их возраст оптимальному соотношению. Если да, то выводится сообщение "Жених и невеста подходят друг другу по возрасту", иначе выводится сообщение "Жених и невеста не подходят друг другу по возрасту".