Question

Pascal. написать свой возраст и возраст друга, с клавиатуры, если твой больше вывести свой возраст иначе возраст друга

Answer 1

Program abc;
var a,b: integer;
begin
writeln ('Input your age: ');
readln(a);
writeln ('Input age of friend: ');
readln(b);
if (a > b) then writeln ('your age = ', a)
else writeln ('age of friend = ', b);
end.

Answer 2

Для написания программы на Pascal, которая позволяет пользователю ввести свой возраст и возраст друга с клавиатуры и затем выводит больший из них, вы можете использовать следующий код:

pascalCopy code
program CompareAges;
var
  myAge, friendAge: Integer;
begin
  writeln('Введите свой возраст:');
  readln(myAge);
  
  writeln('Введите возраст вашего друга:');
  readln(friendAge);
  
  if myAge > friendAge then
    writeln('Ваш возраст: ', myAge)
  else if myAge < friendAge then
    writeln('Возраст вашего друга: ', friendAge)
  else
    writeln('Ваши возрасты равны: ', myAge);
  
  readln; // Чтобы программа не закрылась сразу после вывода результата
end.

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