Pascal, циклы, срочно

[Эльдар]

Помоги пожалуйста решить програмку!!!!
Иначе к сессии не допустят!!!!!!!!!!!!!!!!!!:'(
Задача:
Даны три трехзначных числа. Определить есть ли в записи чисел этих одинаковые цифры и если таковые существуют, определить их сумму. (При помощи массивов решать нельзя, не принимают, только циклы и условия) !!!! Срочно!!!!
(Например а=123 в=435 с=521 то сумма должна быть S=1+1+3+3+5+5+2+2 или а=111 в=111 с=111 то сумма будет S=9)

Заранее спасибо!!!!

[samec2011]

Стучите в асю 11один11-5шесть5шесть, обсудим.

[Sheka]

Код: Выделить всё

aq:=[a div 100; (a div 10) mod 10 ; a mod 10];
bq:=[b div 100; (b div 10) mod 10 ; b mod 10];
cq:=[c div 100; (c div 10) mod 10 ; c mod 10];
full:=[];
s:=0;
for i:=0 to 9 do begin
  if (i in aq)and(i in bq)and(i in cq) then begin
    s:=s+3*i;
    full:=full+[i];
    end;
  if (full*[i]=[])and(((i in aq)and(i in bq))or((i in aq)and(i in cq))or((i in bq)and(i in cq))) then s:=s+2*i;
end;

writeln('s=',s);

должно работать. если что - спрашивай.
думаю инициализацию переменных сможешь написать

[Эльдар]

Спасибо за программу, но она мне не подходит.Эту задачу нам давали когда мы изучали циклы, mod и div, поэтому ничего другого мы не знали. Училка так и требует. Нельзя применять ни массивы ни множества,ни строковые переменные, только циклы и mod и div и ветвление. И выделять цифры желательно в цикле. Вот так и мучаюсь.

[samec2011]

Стучите в асю 11один11-5шесть5шесть, обсудим.

[Sheka]

Вот так и мучаюсь.

icq 255507394
подскажу как решать. сегодня я альтруист(может быть)!

[Эльдар]

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

1) Имеется n населенных пунктов, перенумерованные от 1 до n(n-10). Некоторые пары пунктов присоединены к дорогам. Определить, можно ли попасть по этим дорогам из 1-го пункта в n-й. Информация о дорогах задается в виде последовательности пар чисел i и j (i<j), указывающих, что i-й и j-й пункты соединены дорогой; признак конца этой последовательности – пара нулей.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Плииииииииииииз

[dr.Jekill]

Ваши преподаватели полные извращенцы (это касается первой задачи)

[atavin-ta]

Ваши преподаватели полные извращенцы (это касается первой задачи)

Наоборот, вращенец тот, кто эту задачу решает через массивы, строки тому подобное.