Пожаловаться
- 20.02.2018 21:26
- Информатика
- remove_red_eye 3265
- thumb_up 35
Ответы и объяснения 1
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
function Good(p:(integer,integer)):boolean;
begin
var a:=p[0].ToString.ToHashSet;
var b:=p[1].ToString.ToHashSet;
Result:=a=b
end;
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).Pairwise.Where(t->Good(t)).Count.Println
end.
Пример
5
12
2212
34
42402
402
2
Внимание! Если программа не работает, обновите версию!
function Good(p:(integer,integer)):boolean;
begin
var a:=p[0].ToString.ToHashSet;
var b:=p[1].ToString.ToHashSet;
Result:=a=b
end;
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).Pairwise.Where(t->Good(t)).Count.Println
end.
Пример
5
12
2212
34
42402
402
2
Пожаловаться
- 21.02.2018 07:06
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы