Здравствуйте, помогите пожалуйста решить в Паскале"Вывести в 7 столбиков все шестизначные
Здравствуйте, помогите пожалуйста решить в Паскале
"Вывести в 7 столбиков все шестизначные числа в которых встречается только две схожие числа"
1 ответ
Валентина Мончева
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var c:=0;
for var i:=100000 to 999999 do begin
var a:=i.ToString.ToCharArray;
if a.Distinct.Count=5 then begin
c+=1;
if clt;7 then Print(i)
else begin Println(i); c:=0 end
end
end
end.
Итог (приведено только начало)
100234 100235 100236 100237 100238 100239 100243
100245 100246 100247 100248 100249 100253 100254
100256 100257 100258 100259 100263 100264 100265
100267 100268 100269 100273 100274 100275 100276
100278 100279 100283 100284 100285 100286 100287
100289 100293 100294 100295 100296 100297 100298
Таких чисел 408 240 и они займут 58 320 строк
// Внимание! Если программа не работает, обновите версию!
begin
var c:=0;
for var i:=100000 to 999999 do begin
var a:=i.ToString.ToCharArray;
if a.Distinct.Count=5 then begin
c+=1;
if clt;7 then Print(i)
else begin Println(i); c:=0 end
end
end
end.
Итог (приведено только начало)
100234 100235 100236 100237 100238 100239 100243
100245 100246 100247 100248 100249 100253 100254
100256 100257 100258 100259 100263 100264 100265
100267 100268 100269 100273 100274 100275 100276
100278 100279 100283 100284 100285 100286 100287
100289 100293 100294 100295 100296 100297 100298
Таких чисел 408 240 и они займут 58 320 строк
Мысачка
Милана
дякую))))
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов