|
|
|
|
|||||||
| Регистрация | << Правила форума >> | 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. |
Древовидный вид