Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Татьнка91
0 / 0 / 2
Регистрация: 15.03.2012
Сообщений: 46
#1

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

22.05.2012, 16:43. Просмотров 1292. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 16:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, состоят ли два числа из одних и тех же цифр (Turbo Pascal):

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

Удалить из файла все слова,которые состоят из одних и тех же букв
Дан текстовый файл f.Удалить из файлы все слова,которые состоят из одних и тех...

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

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

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

Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить функцию для расчета количества цифр натура
Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Определить...

1
eXPonent
99 / 52 / 27
Регистрация: 21.05.2012
Сообщений: 1,170
23.05.2012, 11:26 #2
Лучший ответ Сообщение было отмечено Татьнка91 как решение

Решение

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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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