Проверка числа на двузначность на Pascal

Проверка числа на двузначность...

var x: integer;
begin
  write('Введите x: ');
  readln(x);
  if (x>=10) and (x<=100) then
    writeln('Двузначное число')
  else writeln('Не двузначное число')    
end.



Просмотров: 11489
10.02.2015, 08:59 -

Категория: Статьи » Программирование » Pascal