Показать сообщение отдельно
Старый 26.06.2013, 10:36   #1 (permalink)
Rival
Member
 
Регистрация: 16.02.2013
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Перевод c C++ на Pascal

Есть задача
Группа программистов собралась в понедельник и на все свои деньги купила «Sprite» в бутылках емкостью по 0.25 л., не забыв взять сдачу.
Во вторник они сдали пустую посуду, добавили оставшуюся сдачу и вновь купили столько таких же бутылок «Sprite», сколько могли.
Так они действовали до пятницы. В пятницу, сдав посуду и добавив сдачу с четверга, они смогли купить только одну бутылку напитка. При этом денег у них уже не осталось.
Определить минимальную сумму, которой располагали программисты в понедельник.
Интерфейс программы:
входные данные:
n – стоимость бутылки напитка – целое число в разумных пределах,
k – стоимость пустой бутылки из-под «Sprite» (k<n),
выходные данные:
минимальная сумму, которой располагали программисты в понедельник .
Пример
Вход Выход
n=7 83
k=3
Есть решение, но я Си не знаю. Помогите пожалуйста перевести.

Код:
#include <iostream> 
#include <fstream>   
int main() 
{     
 int board[10][10] = {0};       
 std::ifstream input("input.txt");       
 int n;     
 int x, y;       
 input >> n;       
 for (int i = 0; i < n; ++i)     
 {         
  input >> x >> y;           board[x][y] = 1;     
 }       
 input.close();       
 int p = 0;       
 for (int i = 1; i < 9; ++i)     
  {
   for (int j = 1; j < 9; ++j)         
   {             
     if (board[i][j] == 1)             
    {                 
      if (board[i - 1][j] == 0)                     ++p;
      if (board[i][j + 1] == 0)                     ++p;
      if (board[i + 1][j] == 0)                     ++p;
      if (board[i][j - 1] == 0)                     ++p;             
    }         
   }     
  }       
 std::ofstream output("output.txt");       
 output << p;       
 output.close();       
 return 0;
Rival вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070