Question

ABC pascal заданы 2 натуральные числа является ли первое число двухзначным а второе однозначным

Answer 1

Program Project2; 
{$APPTYPE CONSOLE}
uses  SysUtils;
var a,b:integer;
begin 
readln(a,b); 
if (a div 10 =0) and (b div 1000=0) then 
 writeln('True'); 
readln;
end.

Answer 2

Для того чтобы определить, является ли первое число двузначным, необходимо проверить, находится ли оно в диапазоне от 10 до 99. Если число находится в этом диапазоне, значит оно является двузначным.

Для определения, является ли второе число однозначным, необходимо проверить, находится ли оно в диапазоне от 0 до 9. Если число находится в этом диапазоне, значит оно является однозначным.

В коде на языке Pascal это можно сделать следующим образом:

var
  firstNumber, secondNumber: Integer;
begin
  // Ввод чисел
  WriteLn('Введите первое число:');
  ReadLn(firstNumber);
  WriteLn('Введите второе число:');
  ReadLn(secondNumber);

// Проверка первого числа на двузначность
  if (firstNumber >= 10) and (firstNumber <= 99) then
    WriteLn('Первое число является двузначным')
  else
    WriteLn('Первое число не является двузначным');

// Проверка второго числа на однозначность
  if (secondNumber >= 0) and (secondNumber <= 9) then
    WriteLn('Второе число является однозначным')
  else
    WriteLn('Второе число не является однозначным');
end.

В данном коде мы сначала считываем два числа с помощью `ReadLn`, а затем проверяем их на двузначность и однозначность с помощью условных операторов `if`. В зависимости от результата проверки выводится соответствующее сообщение с помощью `WriteLn`.