Трудно найти в мире страну, где проживало бы население одной национальности, одной культуры. Во многих государствах, и в первую очередь федеративных, как у нас, живут разные народы, народности, этнические и религиозные группы. Поэтому воспитание в духе патриотизма, уважения и дружбы народов, веротерпимости отражает смысл и цели воспитательных действий по достижению согласия между людьми, развития образования как фактора интеллектуального и социального прогресса российского народа. Невозможно сохранить мир в наше время, если мы не научимся понимать друг друга, уважать культуру других народов, окружающих нас.
VAR
DES, OST, I, DW:INTEGER;
BEGIN
ClrScr;
Write('Введите десятичное число '); ReadLn(DES);
I:=1;
While (DES>=2) DO Begin
OST:=DES mod 2;
DES:=DES div 2;
DW:=DW+OST*I;
I:=I*10;
End;
DW:=DW+DES*I;
Write('Двоичная запись числа ',DW);
END.