Question

Даны две цифры построить соответствующие двузначное число в pascal

Answer 1

 var   a,b,c : integer;  
begin 
readln (b,a); 
c := a + b * 10; 
writeln (c); 
end.

Answer 2

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

program TwoDigitNumber;
var
  firstDigit, secondDigit, twoDigitNumber: Integer;
begin
  // Вводим первую цифру
  Write('Введите первую цифру: ');
  Readln(firstDigit);
  
  // Проверяем, что первая цифра находится в диапазоне от 0 до 9
  if (firstDigit < 0) or (firstDigit > 9) then
  begin
    Writeln('Ошибка: введите цифру от 0 до 9');
    Exit;
  end;
  
  // Вводим вторую цифру
  Write('Введите вторую цифру: ');
  Readln(secondDigit);
  
  // Проверяем, что вторая цифра находится в диапазоне от 0 до 9
  if (secondDigit < 0) or (secondDigit > 9) then
  begin
    Writeln('Ошибка: введите цифру от 0 до 9');
    Exit;
  end;
  
  // Строим двузначное число
  twoDigitNumber := firstDigit * 10 + secondDigit;
  
  // Выводим результат
  Writeln('Двузначное число: ', twoDigitNumber);
end.

Этот код позволяет пользователю ввести две цифры и затем строит соответствующее двузначное число, используя операцию умножения и сложения.