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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Татьнка91
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 46
#1

Определить, состоят ли два числа из одних и тех же цифр - Turbo Pascal

22.05.2012, 16:43. Просмотров 1202. Ответов 1
Метки нет (Все метки)

Будем называть два числа дружными, если они состоят из одних и тех же цифр. Например, числа 1132 и 32321 являются дружными, а 12 и 123 – нет (в первом числе нет цифры 3). Требуется написать программу, которая определит, являются ли два заданных числа дружными.

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

Входной текстовый файл INPUT.TXT содержит в первой строке натуральное число K – количество тестов. Количество тестов не превышает 10. В следующих K строках содержатся по два целых числа A и B, разделенные одним пробелом (0 < A < 109, 0 < B < 109).

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

Выходной текстовый файл OUTPUT.TXT должен содержать K строк. Для каждого теста в отдельной строке надо выдать сообщение “YES”, если A и B являются дружными, или “NO”, если не являются. В сообщениях кавычки не печатать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 16:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить, состоят ли два числа из одних и тех же цифр (Turbo Pascal):

Проверить, состоят ли списки из одних и тех же фамилий - Turbo Pascal
Даны два списка фамилий, в каждом из которых указано по 10 человек. Все фамилии, естественно, начинаются с прописных букв. Проверить,...

Удалить из файла все слова,которые состоят из одних и тех же букв - Turbo Pascal
Дан текстовый файл f.Удалить из файлы все слова,которые состоят из одних и тех же букв. Вот что я написал!!Ошибок нет но не удаляет!!!! ...

Перечислить все числа заданной последовательности, которые состоят из тех же цифр, что и первое число - Turbo Pascal
Перечислить все числа заданной последовательности чисел ,которые состоят из тех же цифр ,что и первое

Требуется определить, правда ли, что в данной последовательности все числа состоят из одинакового количества цифр - Turbo Pascal
Дан текстовый файл с именем FileName, в первой строке которого записано единственное число N, а во второй строке последовательность из N...

Определить количество цифр числа А, которые входят в запись числа В и находяться на тех же позициях, что и в А - Pascal
Дано натуральные числа А и В с одинаковым количеством цифр. Определить количество цифр числа А, которые входят в запись числа В и...

Определить, имеются ли в тексте слова, составленные из одних и тех же букв - Pascal
Определить, имеются ли в тексте слова, составленные из одних и тех же букв, при этом количество повторений каждой буквы во внимание не...

1
eXPonent
99 / 52 / 2
Регистрация: 21.05.2012
Сообщений: 1,170
23.05.2012, 11:26 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Var a,b,i,j,K:byte;
    swit:boolean;
    s,s1:string;
    f,f1:text;
 
BEGIN
 
Assign(f,'INPUT.TXT');
Reset(f);
Readln(f,K);
Assign(f1,'OUTPUT.TXT');
Rewrite(f1);
 
For i:=1 to K do
 Begin
   Readln(f,a,b);
   swit:=true;
   s:=IntToStr(a);
   s1:=IntToStr(b);
   For j:=1 to length(s) do
    if pos(s[j],s1)=0 then swit:=false;
   For j:=1 to length(s1) do
    if pos(s1[j],s)=0 then swit:=false;
   If swit then Write(f1,'YES')
    else  Write(f1,'NO');
   If i<>K then Writeln(f1);
 End;
 
Close(f);
Close(f1);
 
END.
Попробуй этот...

Добавлено через 16 часов 32 минуты
Ну так как прога помогла?
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2012, 11:26
Привет! Вот еще темы с ответами:

Определить, найдутся ли в двумерной матрице строки, состоящие из одних и тех же элементов - Turbo Pascal
Определить, найдутся ли в данной матрицы строки, состоящие из одних и тех же элементов

Составить программу для подсчета числа одинаковых букв в словах X и Y равной длинны, стоящих на одних и тех же местах - Turbo Pascal
помогите , пожалуйста сделать программу, очень нужно!!((((( Составить программу для подсчета числа одинаковых букв в словах X и Y равной...

Вводится два целых числа. Определить у какого из них больше сумма цифр - Pascal
Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше сумма цифр (Если можно по подробней заранее спасибо)

Найти количество строк матрицы, которые состоят из одних нулей - Turbo Pascal
Дана квадратная матрица целых чисел. Найти количество строк матрицы, которые состоят из одних нулей.


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

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

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