Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Цикл с параметром.
Цикл с параметром.
14. Даны натуральные числа n, k≤9999. Из чисел от n до k выбрать те, запись которых содержит ровно три одинаковые цифры. Например числа 6766, 5444, 0006, 0060 содержат ровно три одинаковые цифры.
1 | Автор: StorMFenix | 2012-06-11, 17:18   |  Репутация: [ + 0 ]
Числа полюбасу четырёх значные?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-06-12, 00:56   |  Репутация: [ + 211 ]
да полюбасу) поможешь?
3 | Автор: StorMFenix | 2012-06-12, 10:10   |  Репутация: [ + 0 ]
3 | Автор: StorMFenix | 2012-06-12, 10:10   |  Репутация: [ + 0 ]
Помогу))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-06-12, 10:44   |  Репутация: [ + 211 ]
А где обещанная помощь? эх завалю ссесию(
5 | Автор: StorMFenix | 2012-06-13, 20:13   |  Репутация: [ + 0 ]
Просто напоминать нужно:) Держи:

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
6 | Автор: Berestovskiy | 2012-06-13, 20:48   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-06-13, 20:48   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Цикл с параметром.
  • Страница 1 из 1
  • 1
Поиск: