Определить является заданное число трехзначным. Пожалуйста помогите срочно если не сложно...

0 голосов
72 оценили
спросил от (15 баллов) в категории Информатика

Определить является заданное число трехзначным. Пожалуйста помогите срочно если не сложно то всю программу полностью.


2 Ответы
0 голосов
ответил от Доцент (53.1 тыс. баллов)
 
Лучший ответ

var n:integer;

Begin

  read(n);

  if (n>99) and (n<1000) then writeln('Yes')</p>

  else writeln('No');

End.

0 голосов
ответил от Одаренный (2.1 тыс. баллов)

var a : integer;
begin
readln(a);
if (a div 10 >0)and(a div 100>0)and(a div 100<10) then writeln('Число трехзначное')<br> else writeln('Число не трехзначное');
end.

...