Интересная задача

[Артем123]

Написать программу на паскале, запрашивающую с клавиатуры два целых числа a и b и определяющую, есть ли в сумме этих чисел идущие подряд одинаковые цифры. Например, для a=100 и b=10 "Есть" , а для a=111 и b=10 "Нет".

[Valio]

Ниочень интересная

[Alex11223]

Неинтересная. Так что покажите ваши наработки, расскажите, что не получается или огласите сумму и способы получения вознаграждения за решение.

[Артем123]

Сообщение от Alex11223

Неинтересная. Так что покажите ваши наработки, расскажите, что не получается или огласите сумму и способы получения вознаграждения за решение.

а какой способ вознаграждения устроит?

[Alex11223]

вебмани или ЯД.

[Артем123]

Сообщение от Alex11223

вебмани или ЯД.

о какой сумме идет речь за решение данной задачи?

[Alex11223]

м...100р. думаю хватит.

[Артем123]

Program chisla;
Var
a,b,s,ost: Word;
e: Boolean;
Begin
Write('a=');Readln(a);
Write('b=');Readln(b);
s:=a+b;
e:=False;
while (s>0) do begin
ost:=s mod 10; { Остаток от деления }
s:=s div 10;
if (s mod 10=ost) then e:=True;
end;
if e then Writeln('Есть')
else Writeln('Нет');
End.

[Alex11223]

Я бы добавил

if (s mod 10=ost) then begin e:=True; break; end;

незачем лишнее электричество жечь)