|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
составить программу на delphi
9.Поменять местами первую и последнюю цифры числа.
помогите пожалуйста |
#2
|
||||
|
||||
Код:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; Var Value: Integer; S: String; C: Char; begin Value := 123456789; WriteLn(Value); S := IntToStr(Value); C := S[1]; S[1] := S[Length(S)]; S[Length(S)] := C; Value := StrToInt(S); WriteLn(Value); ReadLn; end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |