Question

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

Answer 1

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.