Question

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

Answer 1

Ответ:

var x:integer;

begin

 writeln('В каком году Вы родились?');

 read(x);

 if x>СЮДА ГОД ТВОЕГО РОЖДЕНИЯ then

 writeln('Вы младше меня')

 else

 write('Вы старше меня');

  end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Pascal, который выполняет указанное действие:

pascalCopy code
program AgeComparison;

var
  currentYear, birthYear, ageDifference: Integer;

begin
  // Получаем текущий год
  currentYear := 2023; // Замените на текущий год

  // Ввод года рождения пользователя
  Write('Введите год вашего рождения: ');
  ReadLn(birthYear);

  // Вычисляем разницу в возрасте
  ageDifference := currentYear - birthYear;

  // Определяем, старше или младше
  if ageDifference > 0 then
    WriteLn('Вы старше меня на ', ageDifference, ' лет.')
  else if ageDifference < 0 then
    WriteLn('Вы младше меня на ', -ageDifference, ' лет.')
  else
    WriteLn('Вы и я родились в один год.');
end.

Пожалуйста, обратите внимание, что в коде выше я использовал значение 2023 для текущего года, но вам нужно будет заменить это значение на текущий год, когда будете использовать программу.