Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

На очередной ночной вечеринке факультета студенты в количестве N человек решили порассказывать байку из K слов и для этого сели в один круг вокруг кос - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Задача по дискретной математике (написать программу для расшифровки числового ребуса) http://www.cyberforum.ru/cpp-beginners/thread882594.html
Надо написать программу для расшифровки числового ребуса: ссср=рф Если честно, я чёт даже не пойму чего от меня требуют. (У нас училка которая вела на больничном, её заменяют...) Добавлено...
C++ Строки.Массивы.Верните слово по его индексу (индекс первого слова равен 0) Задание Дан многострочный текст (char text). Верните слово по его индексу (индекс первого слова равен 0). Слово – это непрерывная последовательность букв и/или цифр. Разделителями слов могут быть... http://www.cyberforum.ru/cpp-beginners/thread882592.html
C++ Символьный массив
Описать символьный массив L,размерностью M элементов,заполнять массив с клавиатуры.Вывести элементы массива в несколько строк по пять элементов в строке. ПОМОГИТЕ ПОЖАЛУЙСТААА си++ Будьте...
Сортировка методом пузырька C++
Есть ф-ця void bulb (olimpiads** list) в какой метод пузырька, но он у меня не получаеться можете помочь решить проблему что бы оно сортировало по балам за олимпиаду #include <stdio.h> #include...
C++ Литература по программированию http://www.cyberforum.ru/cpp-beginners/thread882576.html
Всем привет! Подскажите пожалуйста годную литературу по программированию. Не по языкам, а по именно стилю, как грамотно составлять программы(например, перед написанием программы нужно ли уже знать...
C++ переделать программу Программа на функции. Нужно переделать программу на объект параметр функции. Как это делается? Не получается. #include <iostream> #include <cmath> using namespace std; float arctg(float... подробнее

Показать сообщение отдельно
Kanonir
2 / 2 / 0
Регистрация: 20.01.2010
Сообщений: 12
07.10.2013, 12:58
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 var x, y:longint;
 function b(x,y:longint):longint;
  begin
   if not(x=1)
  then b:=(b(x-1,y)+y-1) mod x + 1
   else b:=1
  end;
  begin
   assign(input, 'input.txt');
   reset(input);
  read(input,x,y);
   close(input);
   assign(output, 'output.txt');
   rewrite(output);
   writeln(output, b(x,y));
   close(output);
 end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru