Question

Задано число от 0 до 99, если число двузначное, то вывести первую цифру числа, если однозначное, то само число. Паскаль​

Answer 1

Ответ:

var

p,r,i,k,o,l,u,h,a:integer;

s:string;

begin

writeln ('INP');  

readln (k);  / вводим цифру

if (k >= 10) then begin  // проверка на двухзначность

Str(k,s);  // перевод в строку

writeln (s[1]);  // вывод

end

else writeln (k);  // если не больше 10

readln

end.

Объяснение:

Answer 2

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

pascalCopy code
program DigitExtractor;

var
  number: integer;

begin
  writeln('Введите число от 0 до 99:');
  readln(number);

  if (number >= 0) and (number <= 99) then
  begin
    if (number >= 10) then
      writeln('Первая цифра числа: ', number div 10)
    else
      writeln('Однозначное число: ', number);
  end
  else
    writeln('Число вне диапазона от 0 до 99.');
end.

Скопируйте этот код в среду разработки для Pascal (например, Lazarus или Free Pascal), скомпилируйте и запустите программу. Она попросит вас ввести число, а затем выведет первую цифру, если число двузначное, и само число, если оно однозначное.