![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 10.02.2010
Сообщений: 13
|
![]()
Program Nolimit;
var M:array [1..20] of integer; n, Ch, Ost : integer; Begin WriteLn('Enter a number: '); ReadLn(n); while n >= 2 do begin Ch := n div 2; Ost := n mod 2; M[] := Ost; end; WriteLn('Result is: ', M[]); end. |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
![]() Код:
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
![]() |
![]() |
![]() |
#3 | |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
![]() Цитата:
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переведите пожалуйста из Pascal в C++ | KamBall | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 25.05.2009 14:57 |
Переведите кто-то из Паскаля в с++ пожалуйста. Отблагодарю голосами в контакте!!! | megavolt91 | Общие вопросы C/C++ | 6 | 22.05.2009 17:55 |
Переведите на язык Delphi | neomaximus | Помощь студентам | 1 | 26.11.2008 09:24 |
Переведите формулу на язык Delphi | neomaximus | Помощь студентам | 2 | 12.11.2008 01:01 |
Переведите формулу на язык Delphi | neomaximus | Помощь студентам | 3 | 11.11.2008 12:22 |