Question

Задача: Даны трехзначное натуральное число. Удвоить это число если в его записи есть хотя бы одна единица и возвести в квадрат в противном случае. Формат ввода: В первой строке - трехзначное натуральное число. Формат вывода: Целое число Пример входных данных 212 Пример выходных данных 424 На паскале, даю 50 баллов

Answer 1

Ответ:

program z1;

var a: integer;

begin

readln(a);

if (a mod 10 = 1) or (a div 100 = 1) or (a div 10 mod 10 = 1) then write (a*2)

else write (a*a)

end.

Объяснение:

Полный условный оператор:

Если последняя цифра числа или первая цифра числа или средняя цифра числа равна 1, то вывести число умноженное на 2, иначе вывести число умноженное на себя

a mod 10 - последняя цифра числа

a div 100 - первая цифра числа

a div 10 mod 10 - средняя цифра числа

Answer 2

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

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

var
  num: integer;
begin
  // считываем трехзначное натуральное число
  readln(num);
  
  // проверяем, есть ли в записи числа хотя бы одна единица
  if (num mod 10 = 1) or ((num mod 100) div 10 = 1) or (num div 100 = 1) then
    num := num * 2 // удваиваем число, если есть единица
  else
    num := num * num; // возводим в квадрат, если нет единицы
  
  // выводим результат
  writeln(num);
end.

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

Входные данные:
212
Выходные данные:
424

Программа считывает число 212, затем проверяет его запись на наличие единицы, так как в записи есть единицы, программа удваивает число, получая 424, и выводит результат.