Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Ув. програмисты. Помогите с 3 задачами Паскаль, пожалуйста!
1)Информатика:Дано число X. Требуется перевести это число в римскую систему счисления. Формат входного файла Дано число X в десятичной системе счисления (1 ≤ X ≤ 100).

2)Билет на одну поездку в метро стоит 15 рублей, билет на 5 поездок стоит 70 рублей, билет на 10 поездок стоит 125 рублей, билет на 20 поездок стоит 230 рублей, билет на 60 поездок стоит 440 рублей. Пассажир планирует совершить n поездок. Определите, сколько билетов каждого вида он должен приобрести, чтобы суммарное количество оплаченных поездок было не меньше n, а общая стоимость приобретенных билетов – минимальна.

Формат входных данных

Дано одно число n - количество поездок.
Формат выходных данных
Выведите пять целых чисел, равные необходимому количеству билетов на 1, на 5, на 10, на 20, на 60 поездок. Если для какого-то данного n существует несколько способов приобретения билетов одинаковой стоимости, необходимо вывести ту комбинацию билетов, которая дает большее число поездок.

3) Ограничение по времени: 1 секунда
Ограничение по памяти: 64 мегабайта

Для клетки с координатами (x, y) в таблице размером M × N выведите координаты ее соседей. Соседними называются клетки, имеющие общую сторону.

Формат входного файла

Даны натуральные числа M, N, x, y (1 ≤ x ≤ M ≤ 109, 1 ≤ y ≤ N ≤ 109).

Формат выходного файла

В выходной файл выведите пары координат соседей этой клетки в произвольном порядке.

Не могу решить по Паскалю. Заранее благодарна.
1 | Автор: vil_99 | 2012-10-30, 17:17   |  Репутация: [ + 0 ]
1)Информатика:Дано число X. Требуется перевести это число в римскую систему счисления. Формат входного файла Дано число X в десятичной системе счисления (1 ≤ X ≤ 100).

var
a,b:integer;
d:string[45];
begin
SetConsoleOutputCP(1251);
writeln('Введите число в диапазоне от 1 дo 100');
write('a=');
readln(a);
b:=a mod 10;
a:=a div 10;
case b of
0: d:='';
1: d:='I';
2: d:='II';
3: d:='III';
4: d:='IV';
5: d:='V';
6: d:='VI';
7: d:='VII';
8: d:='VIII';
9: d:='IX';
end;
b:=a mod 10;
a:=a div 10;
case b of
0: d:=''+d;
1: d:='X'+d;
2: d:='XX'+d;
3: d:='XXX'+d;
4: d:='XL'+d;
5: d:='L'+d;
6: d:='LX'+d;
7: d:='LXX'+d;
8: d:='LXXX'+d;
9: d:='XC'+d;
end;
b:=a mod 10;
a:= a div 10;
case b of
0: d:=''+d;
1: d:='C'+d;
end;
writeln('B Римской системе счисления ' ,d);
readln;
end.


sLip
2 | Автор: AvoqzT | 2012-12-02, 00:03   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: