Чем тут можно заменить инк? - Помощь студентам

Олег Олег · 28.02.2018, 17:09

begin
var (n, i) := (ReadlnInteger('Число:'), 0);
while (n > 0) do begin
n := n div 10;
inc(i);
end;
writeln(i = 4 ? 'четырёхзначное' : 'не четырёхзначное');
end.

Aleksandr H. · 28.02.2018, 17:12

i := i + 1;

Олег Олег · 28.02.2018, 17:14

спасибо большое

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
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	i := i + 1; Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Чем можно заменить стандартный 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

28.02.2018, 17:14	#3
Олег Олег Регистрация: 28.02.2018 Сообщений: 4	спасибо большое