Question

Вводится целое трехзначное число.Написать программу, которая 1)находит квадратный корень этого числа, 2)находит произведение 1 и 3 цифр числа Написать программу на языке Паскаль

Answer 1

Ответ: 1) program

var a: integer; b: real;

begin

read (a);

b:=sqrt(a);

write (b);

end.

2) var a,b,c,d: integer;

begin

read (a,b,c);

d:=a*c;

write (d);

end.

Объяснение:

Answer 2

Для решения этой задачи на языке Паскаль, вы можете использовать следующий код:

pascalCopy code
program SquareRootAndProduct;

var
  number, firstDigit, lastDigit, product: integer;
  squareRoot: real;

begin
  { Введите трехзначное число }
  write('Введите трехзначное число: ');
  readln(number);

  { Проверка, что число является трехзначным }
  if (number < 100) or (number > 999) then
  begin
    writeln('Ошибка: Введите трехзначное число.');
    exit;
  end;

  { Находим квадратный корень }
  squareRoot := sqrt(number);

  { Находим первую цифру числа }
  firstDigit := number div 100;

  { Находим последнюю цифру числа }
  lastDigit := number mod 10;

  { Находим произведение первой и последней цифры }
  product := firstDigit * lastDigit;

  { Выводим результаты }
  writeln('Квадратный корень числа ', number, ' равен: ', squareRoot:0:2);
  writeln('Произведение первой и последней цифры числа: ', product);
end.

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