Question

Дано число (A),если оно однозначное,То умножить его на 3,если трехзначное разделить на 3

Answer 1

Var
    a: integer;
    b: double;

begin
    readln(a);
    b := a;
    if (a mod 10 = a) then
        b := a * 3;
    if (a div 100 <> 0) and (a div 1000 = 0) then
        b := a / 3;
    writeln(b);
end.

Answer 2

//прога на Pascal`e
var
a: integer;
begin
write ('Введите A: ');
readln (a);

if  (a div 10) = 0 then write (a*3)
  else if (a div 100) <>0 then write (a/3)
     else write ('Это не трехзначное и не однозначное число');

end.

Answer 3

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

1. Получите число (A).
2. Проверьте, однозначное ли оно. Для этого можно посмотреть, находится ли число (A) в диапазоне от 0 до 9 включительно. Если да, перейдите к шагу 3, иначе перейдите к шагу 4.
3. Умножьте число (A) на 3.
4. Проверьте, трехзначное ли число (A). Для этого можно посмотреть, находится ли число (A) в диапазоне от 100 до 999 включительно. Если да, перейдите к шагу 5, иначе выведите сообщение о неверном вводе числа.
5. Разделите число (A) на 3.

Вот пример реализации этой задачи на языке Python:

pythonCopy code
A = int(input("Введите число A: "))

if A >= 0 and A <= 9:
    result = A * 3
elif A >= 100 and A <= 999:
    result = A / 3
else:
    print("Неверный ввод числа!")
    exit()

print("Результат:", result)

Вы можете ввести число (A), и программа выдаст соответствующий результат в зависимости от условий.