Question

Дано двухзначное число. Выведите на экран квадрат его первой цифры. (Pascal ABC)

Answer 1

Ответ:

фото12345678910йцууке

Answer 2

Вот пример решения данной задачи на языке Pascal ABC:

pascalCopy code
program SquareFirstDigit;
var
  number, firstDigit, square: integer;
begin
  // Ввод двухзначного числа
  write('Введите двухзначное число: ');
  readln(number);

  // Получение первой цифры
  firstDigit := number div 10;

  // Вычисление квадрата первой цифры
  square := firstDigit * firstDigit;

  // Вывод результата
  writeln('Квадрат первой цифры: ', square);
end.

В этой программе мы сначала запрашиваем у пользователя двухзначное число. Затем мы делим это число на 10, чтобы получить первую цифру (остаток от деления нацело). Затем мы вычисляем квадрат первой цифры, умножая её саму на себя. Наконец, выводим полученный результат на экран.

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