Он отличается тем, что цикл с условием в конце выполниться хоть один раз, даже если условие неверное.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
ReadlnString.ToUpper.Println('')
end.
<u><em>Тестовое решение:</em></u>
Это тестовая строчка
ЭТО ТЕСТОВАЯ СТРОЧКА
125
125/2=62 остаток -1
62/2=31 остаток 0
31/2=15 остаток 1
15/2=7 остаток 1
7/2=3 остаток 1
3/2=1 остаток 1
Записываем получившиеся остатки в обратном порядке , но начнем с последнего частного (1)
1 1 1 1 1 0 1 (2)=125 (10)
255
255/2=127 остаток 1
127/2=63 остаток 1
63/2=31 остаток 1
31/2=15 остаток 1
15/2=7 остаток 1
7/2=3 остаток 1
3/2=1 остаток 1
Опять таки записываем получившиеся остатки в обратном порядке , но начнем с последнего частного (1)
1 1 1 1 1 1 1 1
Var
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.