|
Цикл с параметром.
|
|
|
14. Даны натуральные числа n, k≤9999. Из чисел от n до k выбрать те, запись которых содержит ровно три одинаковые цифры. Например числа 6766, 5444, 0006, 0060 содержат ровно три одинаковые цифры.
|
|
|
|
Числа полюбасу четырёх значные?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Помогу))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
А где обещанная помощь? эх завалю ссесию(
|
|
|
|
Просто напоминать нужно:) Держи:
var
q1,q2,q3,q4,i,n,k:integer;
begin
read(n,k);
for i:=n to k do begin
q1:=i div 1000;
q2:=i div 100 mod 10;
q3:=i mod 100 div 10;
q4:=i mod 10;
if
(q1=q2)and(q2=q3)and(q1<>q4)or
(q1=q2)and(q2=q4)and(q1<>q3)or
(q2=q3)and(q3=q4)and(q1<>q2)or
(q1=q3)and(q3=q4)and(q1<>q2) then write(i,' ');end;
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
