|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.02.2018, 17:09 | #1 |
Регистрация: 28.02.2018
Сообщений: 4
|
Чем тут можно заменить инк?
begin
var (n, i) := (ReadlnInteger('Число:'), 0); while (n > 0) do begin n := n div 10; inc(i); end; writeln(i = 4 ? 'четырёхзначное' : 'не четырёхзначное'); end. |
28.02.2018, 17:12 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
i := i + 1;
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
28.02.2018, 17:14 | #3 |
Регистрация: 28.02.2018
Сообщений: 4
|
спасибо большое
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Чем можно заменить стандартный DataGridView в плане дизайна WinForms? | Таксист | C# (си шарп) | 2 | 08.08.2015 22:33 |
Чем можно заменить или как ускорить TImageList? | garuna | Общие вопросы Delphi | 10 | 06.12.2014 15:07 |
Чем можно заменить компоненты Indy? | Arsenx777 | Работа с сетью в Delphi | 7 | 29.07.2011 04:35 |
Чем можно заменить конструкцию? Или как быть ? | kitovras | Microsoft Office Excel | 3 | 12.08.2009 15:31 |
Чем можно заменить объект BitBtn? | frai | Компоненты Delphi | 3 | 14.04.2007 12:42 |