ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
перевести с паскаля на C++ Builder |

22.02.2010, 21:11
|
|
Новичок
Регистрация: 22.02.2010
Сообщений: 1
Провел на форуме: 8538
Репутация:
0
|
|
перевести с паскаля на C++ Builder
дано целое k от 1 до 180 определить какое цифранаходиться в к-й позиции последовательности
10111213....9899 в которой выписанны подряд все днузначные цифры.
Код:
uses crt; var k,c:byte; begin clrscr; repeat {вводим число к с проверкой правильности ввода} write('Vvedite k=[1,180] k='); readln(k); until (k>=1)and(k<=180); if odd(k) then c:=k div 20+1 {если к-нечетное} else if k mod 20=0 then c:=9 else{если четное и кратно 20} c:=k mod 20 div 2 -1; {четное и не кратно 20} write('Cifra #',k,'=',c); readln end.
|
|
|

23.02.2010, 22:47
|
|
Участник форума
Регистрация: 29.07.2008
Сообщений: 128
Провел на форуме: 225836
Репутация:
34
|
|
Открой любой справочник по си и переведи,в чем проблема?Div В си это /,Mod-%.And-&.Прежде чем сюда писать книжку попробуй открыть.
|
|
|
|
 |
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
С помощью чего перевести деньги с мобильника на WebMoney
|
NightStorm™ |
Электроника и Фрикинг |
5 |
16.09.2009 03:18 |
|
Embarcadero: C++ Builder 2009
|
Kollinz |
С/С++, C#, Delphi, .NET, Asm |
1 |
11.08.2009 11:27 |
|
[Статья] Создание расширения для Windows Explorer при помощи C++ Builder
|
Dobby007 |
С/С++, C#, Delphi, .NET, Asm |
2 |
29.03.2009 08:58 |
|
Помогите перевести прогу с паскаля в С++
|
WeReWoLf777 |
С/С++, C#, Delphi, .NET, Asm |
6 |
24.03.2009 21:55 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|