|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
30.05.2018, 07:23
|
|||
|
|||
Помогите перевести код паскаль в делфи (новичок)
Код:
var
i:integer;
Begin
For i:=1000 to 9999 do
if (i div 1000 + i mod 10)=(i div 100 mod 10 + i div 10 mod 10) then write(i:5);
End.Последний раз редактировалось Admin, 30.05.2018 в 22:25. |
|
#2
31.05.2018, 02:49
|
|||
|
|||
Ну, вообще и так должно работать.
Только в консольном приложении. Ну а если надо в оконном, то брось на форму TMemo и замени write на что-нить типа Memo1.Lines.Add(IntToStr(i)). |
Комбинированный вид
