Question

Составьте программу, по которой будет реализован следующий сценарий: 1. компьютер запрашивает Ваше имя, ввести имя с клавиатуры. 2. компьютер запрашивает Ваш год рождения, ввести год рождения. 3. после ввода компьютер сообщает ваш возраст (количество лет). 4. Для расчета от текущего года надо вычесть год Вашего рождения. Например, если ввели имя Иван, год рождения 2005, то выведется фраза «Иван тебе 15 лет». паскаль

Answer 1

Ответ:

PascalABC

Объяснение:

program vozrast;

var

 name: string;

 year, age: integer;

 d: datetime;

begin

 Write('Введите имя: ');

 ReadLn(name);

 Write('Введите год рождения: ');

 ReadLn(year);

 d := DateTime.Now;

 age := d.Year - year;

 WriteLn(name,', тебе ', age, ' лет.');

end.

Answer 2

Вот пример программы на языке Pascal, реализующей данный сценарий:

pascalCopy code
program CalculateAge;
var
  name: string;
  birthYear, currentYear, age: integer;
begin
  // Запрос имени пользователя
  writeln('Введите ваше имя:');
  readln(name);

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

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

  // Расчет возраста
  age := currentYear - birthYear;

  // Вывод возраста пользователя
  writeln(name, ', вам ', age, ' лет.');
end.

Программа запрашивает имя пользователя, год рождения и вычисляет возраст на основе текущего года (здесь предполагается, что текущий год - 2023). Затем она выводит фразу с именем и возрастом пользователя. Вы можете изменить значение переменной currentYear на актуальный текущий год при необходимости.