Question

Написать на языке паскаль:Умножить трехзначное число, введенное с клавиатуры на 2, если оно содержит в своей записи хотя бы одну единицу.

Answer 1

Fl := false;
t := n; while (t > 0) and not fl do beign if (t mod 10 = 1) then fl := true; t := t div 10; end;
if (fl) then n := n*2;

Answer 2

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

program MultiplyByTwo;
var
  number, result: integer;
begin
  writeln('Введите трехзначное число:');
  readln(number);
  
  if (number mod 10 = 1) or (number div 10 mod 10 = 1) or (number div 100 = 1) then
  begin
    result := number * 2;
    writeln('Результат умножения на 2:', result);
  end
  else
    writeln('Число не содержит ни одной единицы.');
end.

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

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