Помогите сделать алгоритм проверки числа на то, есть ли оно 2 значным или 3 значным.
Answers & Comments
kamun1st
Var n : integer; begin readln (n); if (n > -100) and (n < 100) then write ('Это число двузначное'); if (n > -1000) and (n < 1000) then write (Это число трёхзначное); end.
Answers & Comments
begin
readln (n);
if (n > -100) and (n < 100) then write ('Это число двузначное');
if (n > -1000) and (n < 1000) then write (Это число трёхзначное);
end.