• ↓
  • ↑
  • ⇑
 
Записи с темой: программы (список заголовков)
18:37 

Кубик

С вами снова раскладчик клавиатуры, который от скуки залез на acmp.ru и отковырял там ещё одну задачку.

Кубик
Все мы в детстве играли в кубики. Были у нас и кубики с цифрами, и кубики с буквами. Были также и разноцветные кубики. Маленький Андрюша тоже любит играть в кубики. У него есть несколько наборов кубиков, причем все кубики из одного набора раскрашены одинаково, а кубики из разных наборов - по-разному.
На столе у Андрюши лежат два кубика. Помогите ему определить, принадлежат они одному набору или нет. Стол у Андрюши стеклянный, поэтому он видит цвета всех граней кубика. Кубики принадлежат одному набору, если один из них можно комбинацией поворотов вокруг осей, проходящих через середины противоположных граней, перевести в другой.

Первая строка входного файла INPUT.TXT содержит описание первого кубика в формате: цвет передней грани, цвет задней грани, цвет верхней грани, цвет нижней грани, цвет левой грани, цвет правой грани. Во второй строке находится описание второго кубика в таком же формате. Цвета граней кодируются числами. Все числа во входном файле - целые, положительные и не превосходят 100.

В выходной файл OUTPUT.TXT выведите «YES», если первый и второй кубики принадлежат одному набору, и «NO» - в противном случае.

Примеры
INPUT.TXT
OUTPUT.TXT

1
1 2 3 4 5 6
1 2 3 4 5 6
YES


2
1 2 3 4 5 6
1 1 1 1 1 1
NO


3
1 2 3 4 5 6
5 6 3 4 2 1
YES


А теперь парочка мозговыносящих процедур:

@темы: программы

19:17 

Управляемое движение

Этот великолепный момент, когда ты написала программку, чтобы УПРАВЛЯТЬ КРУЖОЧКОМ С ПОМОЩЬЮ WASD!!!
Ну, не кружочком, а только окружностью, но это ж практически "Косилка". :)

Но программу я вам не покажу, ибо хочу допилить до кружочка.

@темы: программы

21:33 

Движущийся прямоугольник

Завтра буду отлаживать.

uses graph;
var
d,m,i:integer;
begin
d:= detect;
InitGraph(d,m,'');
for i:=0 to 570 do
begin
SetColor(4);
rectangle(0+i,0,30+i,40);
delay(1000);
SetColor(0);
rectangle(10+i,10,30+i,30);
end;
readln;
closeGraph;
end.

@темы: программы

19:43 

Потому что я могу

О МОЙ БОГ, Я РЕШИЛА ЕЁ.

Задано натуральное число N. Требуется написать программу, вычисляющую количество различных трехзначных чисел получающихся из N вычеркиванием цифр из его десятичной записи.
Входной текстовый файл INPUT.TXT содержит одно натуральное число N (1 <= N <= 10^100).
Выходной текстовый файл OUTPUT.TXT должен содержать одно натуральное число - найденное количество трехзначных чисел.
Примеры
INPUT.TXT
OUTPUT.TXT

1
12
0

2
111111111110011111111
4


Для ленивых и внимательных пишу решение тут же:

@темы: программы, счастье

Записки раскладчика клавиатуры

главная