Question

Удвоить трѐхзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. Если введѐнное число не трѐхзначное, вывести сообщение об ошибке.(В ПАСКАЛЕ)

Answer 1

Задача

Вам нужно написать программу на языке Pascal, которая будет удваивать трехзначное число, введенное с клавиатуры, если оно содержит хотя бы одну единицу в своей записи. В противном случае программа должна возвести число в квадрат. Если введенное число не является трехзначным, программа должна вывести сообщение об ошибке.

Решение

Для решения этой задачи вам понадобится использовать условные операторы и арифметические операции.

1. Сначала вам нужно запросить у пользователя ввод трехзначного числа с клавиатуры. Для этого используйте функцию `ReadLn`.

2. Проверьте, является ли введенное число трехзначным. Если число не является трехзначным, выведите сообщение об ошибке. Для этого используйте условный оператор `if`.

3. Если число трехзначное, проверьте, содержит ли оно хотя бы одну единицу в своей записи. Для этого можно разделить число на сотни, десятки и единицы, используя операции деления и остатка от деления.

4. Если число содержит хотя бы одну единицу, удвойте его, используя операцию умножения.

5. Если число не содержит единицы, возвести его в квадрат, используя операцию возведения в степень.

6. Выведите полученный результат на экран, используя функцию `WriteLn`.

Пример кода

program DoubleOrSquare;
var
  number, result: integer;
begin
  WriteLn('Введите трехзначное число:');
  ReadLn(number);

if (number < 100) or (number > 999) then
  begin
    WriteLn('Ошибка: введено неверное число.');
  end
  else
  begin
    if (number mod 10 = 1) or ((number div 10) mod 10 = 1) or (number div 100 = 1) then
    begin
      result := number * 2;
    end
    else
    begin
      result := number * number;
    end;

WriteLn('Результат:', result);
  end;
end.

Объяснение кода

1. В начале программы объявляются переменные `number` (для хранения введенного числа) и `result` (для хранения результата).

2. Пользователю выводится сообщение с просьбой ввести трехзначное число.

3. С помощью функции `ReadLn` число считывается с клавиатуры и сохраняется в переменной `number`.

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

5. Если число трехзначное, с помощью условного оператора `if` проверяется, содержит ли число хотя бы одну единицу. Если число содержит хотя бы одну единицу, оно удваивается и результат сохраняется в переменной `result`.

6. Если число не содержит единицы, оно возводится в квадрат и результат сохраняется в переменной `result`.

7. Наконец, результат выводится на экран с помощью функции `WriteLn`.

Пример работы программы

Введите трехзначное число:
123
Результат: 246

Введите трехзначное число:
456
Результат: 456^2 = 207936

Введите трехзначное число:
99
Ошибка: введено неверное число.

Замечание

Обратите внимание, что в приведенном коде используется оператор `begin` и `end` для группировки блоков кода внутри условных операторов. Это необходимо для правильной структуры программы на языке Pascal.