6)
Code
For i := 1 to 5 do
Begin
N := X mod 10;
X := X div 10;
Y := Y * 10 + N;
End;
7)
Code
A := (C mod 10) + ((C mod 100) div 10) + (C div 100);
Вроде не напутал. Но проверьте.
8)
Code
If ((X mod N) > 0) then Rez := (X div N) + 1 else Rez := X div N;
Как-то так.
9) Аналогично.
P.S. Задачи не проверял, некогда, так, по памяти написал коды.
P.P.S. Влеплю нарушение. Читайте правила форума.
