Question

Помогите написать на Паскале Дано натуральное число Y. Увеличить его на 18, если число двухзначное. входные данные 23 выходные данные 41

Answer 1

===== PascalABC.NET =====

begin

 var Y := ReadInteger('Y =');

 if Y in Range(10, 99) then

   Println(Y + 18)

end.

Answer 2

Конечно! Вот пример программы на Паскале, которая выполняет указанную задачу:

pascalCopy code
program IncreaseNumber;
var
  Y: integer;

begin
  // Вводим значение числа Y
  write('Введите число Y: ');
  readln(Y);

  // Проверяем, является ли число двузначным
  if (Y >= 10) and (Y <= 99) then
  begin
    // Увеличиваем число на 18
    Y := Y + 18;
  end;

  // Выводим результат
  writeln('Результат: ', Y);
end.

После запуска программы она запросит у пользователя ввести число Y. В данном случае введите 23. Программа проверит, является ли число двузначным, и увеличит его на 18, если это так. В результате будет выведено число 41, как указано в задаче.