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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
гошанчик
33 / 33 / 1
Регистрация: 22.12.2010
Сообщений: 140
#1

проверьте равенство - Pascal ABC

12.01.2011, 21:18. Просмотров 535. Ответов 0
Метки нет (Все метки)

Максимальное время работы на одном тесте:
1 секунда

Максимальный объем используемой памяти:
64 мегабайта


Заданы целые числа X, Y, P, Q (–10100 <= X, Y, P, Q <= 10100). Требуется проверить равенство XY = PQ. Напомним, что ab определяется следующим образом:

•при b > 0, ab = a*a*...*a (b сомножителей)

•при b = 0, a <> 0 ab = 1

•при b < 0, a <> 0 ab = 1/a-b

•для остальных комбинаций a и b значение ab не определено.

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

Во входном файле записаны числа X, Y, P, Q, каждое в отдельной строке.

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

Выведите слово correct, если данное равенство для полученных входных данных выполняется, или incorrect, если равенство не выполняется, или хотя бы одна из степеней не определена.

Примеры

Входные данные
Выходные данные

2

4

4

2
correct

2

3

3

2
incorrect
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2011, 21:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос проверьте равенство (Pascal ABC):

Покажите неверное равенство - Pascal ABC
Покажите неверное равенство.. где правда и где ложь 1) &lt;&gt;; 2) =; 3) =; 4) =; 5) &lt;=; 6) &lt;=; 7) &lt;=; 8) 'q' in ; 9)...

Определить выполняется ли равенство - Pascal ABC
Даны два конечных множества Х и У, состоящие из целых чисел. Определить выполняется ли равенство: (A\B) ∪ (B\A)=(A∪B) \ (A∩B).

Проверить равенство с использованием функции - Pascal ABC
1+2+2^2+...2^(n-1)=2^n - 1 function Stepen2 (k: byte): longint; {два в степени} var Y : longint; j : byte; begin Y:= 2; ...

Проверить равенство двух матриц - Pascal ABC
Помогите, пожалуйста, написать программу для проверки равества 2-х вводимых матриц: (A+B)' = A'+B' где А, В - исходные матрицы ...

Проверить равенство двух множеств - Pascal ABC
Пользователь вводит два множества. Проверить, равны ли они.

РАВЕНСТВО - Pascal
Имею 3 обьекта длина которых хакактеризируэться как: 1: 1&lt;=у&lt;=2 2: 6&lt;=z&lt;=10 3: 1&lt;=х&lt;=0.5z Я вообще не имею &quot;зеленого&quot; понятия как...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2011, 21:18
Привет! Вот еще темы с ответами:

Доказать равенство - Pascal
Помогите решить задачу: (1/(1-x^3))=1+x^3+x^6+...x^3n;

Проверить равенство - Pascal
Проверить равенство. С клавиатуры ввести точность Е и вещественное число х пр. Определить, сколько слагаемых просуммировано. Объясните...

Проверить равенство. Паскаль - Pascal
Проверить равенство. С клавиатуры ввести точность Е и вещественное число х пр. Определить, сколько слогаемых просуммировано. Я так...

Написать функцию, проверяющую на равенство многочлены - Pascal ABC
Многочлен задан своими коэффициентами, которые хранятся в форме списка. Написать: – функцию Equal(p, q), проверяющую на равенство...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru