решите задачку (Изменил условие)

[Miker]

Задача не дебильная).. Обыкновенная задача на отработку-закрепление _ХЗ_ чего-то-там, но очень практического. Например, чтобы таки не забыть ответ на вопрос - почему порядковая СС так называется и что есть развёрнутая запись числа.. Всё не просто так

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

[Miker]

var x,y,i,j: integer;
ok: boolean;
begin
 ok:=false;
 for x:=0 to 9 do begin
  for y:=0 to 9 do begin
   if (x*10+x)*2+y=x*100+y*10+y then begin
    ok:=true;
    writeln(x,y);
   end;
  end;
 end;
 writeln('__________________');
 if ok=false then writeln('NO');
 readln;
end.

Это по простому варианту. По хорошему там надо через текстовые переменные, чтобы цифры "склеивались" в числа и потом уже складывались

*** сцуко всю структурность мне движок форума порезал.. а в режиме редактирования всё хоккей

[Avton]

По хорошему там надо через текстовые переменные, чтобы цифры "склеивались" в числа и потом уже складывались

:o нах так усложнять? твой вариант самый быстрый и простой

[Господин Директор]

2Miker
Тег CODE для этого существует :wink:

[Miker]

Avton ибо в исходной задаче они таки "склеиваются", и можно в решении обойтись без разложения по порядкам)

Judge спасибо)

[Avton]

Avton ибо в исходной задаче они таки "склеиваются", и можно в решении обойтись без разложения по порядкам)

в математике нет понятия „склеиваются” :wink:

[Miker]

Сие для тех, в ком нет понятия "математика".. и у них оно - "склеивается"))

[kycok]

Извиняюсь за оверквотинг.
1.
у меня тут два вопроса по исходным данным

После знака равенство пишется что именно? это

Условие больше не изменится, за обьясниние спасибо, да трёхзначное, только не xxy а yxx
Видимо опечатка..

или то, что в коде написано:

var x,y,i,j: integer;
ok: boolean;
begin
ok:=false;
for x:=0 to 9 do begin
for y:=0 to 9 do begin
if (x*10+x)*2+y=x*100+y*10+y then begin
ok:=true;
writeln(x,y);
end;
end;
end;
writeln('__________________');
if ok=false then writeln('NO');
readln;
end.

Это по простому варианту. По хорошему там надо через текстовые переменные, чтобы цифры "склеивались" в числа и потом уже складывались

*** сцуко всю структурность мне движок форума порезал.. а в режиме редактирования всё хоккей

Мудрейший, скажите, кто они эти ТЕ

Сие для тех, в ком нет понятия "математика".

Рискну предположить, либо это герои сериала "Теория большого взрыва", либо четырехклассники ?
(просто я в четвертом классе не учился, а из третьего сразу в пятый перешел)

2.
И еще. если исходные условия таковы, как описано здесь

Итого: 20х+2х+у=100х+10у+у -> -88x=10y -> верно только в 1 случае, когда х и у =0) Итого - все 0 рулят)

откуда получилось значение -88x ?

[Miker]

дада, куча косяков)

-78х конечно же)

а по авторской формуле дело вообще тёмное что там правильно, а что нет)

[Miker]

Вообще отладка рулит)