Удвоить трѐхзначное число, введенное с клавиатуры, если оно содержит в своей записи хотя бы одну единицу, и возвести в квадрат в другом случае. если введѐнное число не трѐхзначное, вывести сообщение об ошибке.
лера2083
3
23.04.2019 21:30
4
Другие вопросы по теме Информатика
veronikasimonova1
27.05.2019 20:20
LuKи
27.05.2019 20:20
6676228
27.05.2019 20:20
ПРОКОФИЙ2005
27.05.2019 20:20
Помидоркин001
27.05.2019 20:20
said97
27.05.2019 20:20
тупая1294
27.05.2019 20:20
mozhnj
27.05.2019 20:20
дитанатор
27.05.2019 20:20
Популярные вопросы
- Какие слова антонимы на казахском языке...
3 - 111! 10 метафор из повести капитанская дочка а.с. пушкина...
1 - Як ви розумієте вислів іржи товмач недаремно говорять, що люди...
1 - Napisat 8 predlojeniu pro izvestnogo cheloveka...
3 - Гусей крикливых караван тянулся к югу. выберете из предложений...
2 - Найдите площядь прямоугольника со сторонами 7дс и 6дм...
3 - Иопять,всем . решить по : определите объем воды(h2o),который необходим...
3 - Докажите что числа 2968,3600,888,888,676,767 являються составными...
2 - Найди значение выражения. 1)(х+29)+(y-13) при х+у=42...
1 - Периметр равнобедренного треугольника с основанием ab равен 10,а...
2
var q,k,i:integer;w:string;
begin
readln(q); k:=0;
if (q/100<1) or (q/100>9.99) then writeln('Chislo ne 3ehznachnoe!')
else begin
str(q,w);
for i:=1 to length(w) do
if w[i]='1' then k:=1;
if k=1 then writeln(q*2) else writeln(sqr(q));
end;
end.