|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Помогите решить пример на Delphi?
Дано натуральное число n(n<=100). Сколько цифр в числе n.
------------------------------------------------------------- Код:
var a:integer; begin readln(a); if a<=10 then wtiteln(a) else if a <= 100 then writeln(a div 10) else writeln('1'); readln{;} end. Правильно ли я решил пример или нет? Если нет, то напишите его правильно пожалуста. Заранее всем спасибо за помощь. Последний раз редактировалось Admin, 18.11.2010 в 13:18. |