ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

перевести с паскаля на C++ Builder
  #1  
Старый 22.02.2010, 21:11
nariku
Новичок
Регистрация: 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.
 
Ответить с цитированием

  #2  
Старый 23.02.2010, 22:47
Fliplab
Участник форума
Регистрация: 29.07.2008
Сообщений: 128
Провел на форуме:
225836

Репутация: 34
Отправить сообщение для Fliplab с помощью ICQ
По умолчанию

Открой любой справочник по си и переведи,в чем проблема?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)
 


Быстрый переход




ANTICHAT.XYZ