Пожалуйста!!!!!!Даны трёхзначные натуральные числа n и k (n меньше k). Из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. Например, числа 266, 661, 767, 776 – содержат ровно 2 одинаковые цифры.
Пожалуйста!!!!!!Даны трёхзначные натуральные числа n и k (n < k). Из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. Например, числа
266, 661, 767, 776 – содержат ровно 2 одинаковые цифры.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1128
begin
var n:=ReadInteger('n=');
var k:=ReadInteger('k=');
for var i:=n to k do begin
var s:=i.toString;
if ((s[1]=s[2]) and (s[1]<>s[3])) or
((s[1]<>s[2]) and ((s[3]=s[1]) or (s[3]=s[2]))) then
Write(i,' ')
end
end.
Тестовое решение:
n= 318
k= 427
322 323 330 331 332 334 335 336 337 338 339 343 344 353 355 363 366 373 377 383 388 393 399 400 404 411 414 422 424
Не нашли ответ?
Похожие вопросы