Составить программму для определения номера машины

[vereney]

3 друга были свидетелями дорожно-транспортного происшествия. Первый заметил, что номер машины нарушителя делится на 2, 7, 11. Второй заметил, что в записи номера участвуют 2 цифры, а третий – что сумма цифр равна 30. Составить программу для определения номера машины нарушителя.

program zad;
var
i,k,l,j,m:integer;
begin
for i:=1000 to 9999 do
begin
if ((i mod 2)=0) and ((i mod 7)=0) and ((i mod 11)=0) then
j:= i div 1000;
k:= (i div 100)-j*10;
l:= (i div 10)-j*100-k*10;
m:= i-(i div 10)*10;
 if (j+k+l+m)=30 then
    writeln(j);
    writeln(k);
    writeln(l);
    writeln(m);
writeln (i);
end;
end.

ВОт что получилось.А как составить код для условия,что в записи номера участвуют 2 цифры?Подскажите



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Pein95]

разложыте число на цыфры и проверте скоко там одинаковых цыфр

[Serge_Bliznykov]

как минимум, Вы забыли заключить остальные проверки в операторные скобки:

if ((i mod 2)=0) and ((i mod 7)=0) and ((i mod 11)=0) then 
begin
  ... Тут Ваши проверки...
end;

А почему Вы решили, что в номере нарушителя 4-ре цифры?

и это условие:

Второй заметил, что в записи номера участвуют 2 цифры,

имхо, проще всего проверить, когда разбираете номер на отдельные цифры, учитывайте, сколько их встретили разных. Как только более двух - всё. номер не подходит..

______________________

Кстати, на форуме вот такая задача решалась более двух лет назад:

1. Три товариша были свидетелями дорожно-транспортного проишествия. Один из них запомнил что 4-значимый номер автомобиля делится без остатка на 2, 7 и 11. Второй подчеркнул что в записи номера есть две одинаковые цифры, а третий вспомнил что сума цифр номера 30.

решения тут - http://www.programmersforum.ru/showthread.php?t=28079

[vereney]

4 знака в номере, потому как сумма то 30 и по ссылке я посмотрела решение,но там используется функция, а если без функции?это возможно?ПОтому как процедуры и функции в 7 классе ещё не изучали.
Спасибо что не оставляете без внимания

[Serge_Bliznykov]

4 знака в номере, потому как сумма то 30

Да ну?! Это новая математическая теория?!
С чего это Вы решили?
Тогда объясните мне,
почему не подходит, например, номер авто 708708 ну, или номер 4474470, или номер 9900660 ?!
А, Вы скажете, что в записи этих чисел использованы более двух цифр? Так?
Ну а что Вы скажете про такие номера?
366366
474474
636636
744744
5555550
44334444
55555500
это раз.


второе. Прочитайте внимательно задание: показания второго свидетеля в "моей" и "вашей" задаче - РАЗНЫЕ. (надеюсь, это очевидно и не надо объяснять, в чём разница?!)
Именно поэтому я предложил Вам внимательно уточнить задание!
Вообще, у меня возникло впечатление, что кто-то (то ли Ваш учитель, то ли автор какого-нибуд задачника) попытался по памяти пересказать условия задачи, но это у него криво получилось... В программировании, как и в других точных науках, задание не допускает неоднозначностей, двоякого толкования и т.п.

и третье.

там используется функция, а если без функции?это возможно?

да. всегда можно расписать функцию прямо в тебе программы. просто программа становится менее наглядной и понятной... а делается это так - берётся тело функции, и переносится в основную программу. Заводятся все нужные переменные (которые были в секции VAR функции). и ещё одна переменная добавляется, куда сохраняется результат вычислений.. и всё.

и последнее. Там по ссылочке, есть моё решение:
http://www.programmersforum.ru/showp...51&postcount=3
Где Вы там функцию нашли?!!

[vereney]

вы правы)))либо педагог продиктовал неточно задачу, либо ребенок зевал на уроке.Спасибо, будем внимательнее