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 - средняя цифра числа