Дистанционная подготовка: В чем моя ошибка?
В чем моя ошибка?
от Ильшат Хасанов - Четверг 31 Август 2017, 12:53
2956. Симметричное число
  program a20;
var n,q,w,r,d:longint; f,g:text;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f); rewrite(g);
readln(f,n);
q:=n div 1000;
w:=n div 100;
r:=n mod 100;
d:=r mod 10;
r:=r div 10;
w:=w mod 10;
q:=q-w;
w:=d-r;
r:=q-w+1;
write(g,r);
close(g);
close(f);
end.
Проверял вручную уже много раз, все работает, но на тестировании выводит 2 ошибки.
Re: В чем моя ошибка?
от Владислав Пахомов - Среда 7 Март 2018, 20:50
  Похоже, вы делали по разбору. Он... Не верен. Скинул бы решение, да "одмены" забанят) Но, скажу, что ошибка в последних вычислениях, там где у вас: "r:=q-w+1;" Нужно придумать другой алгоритм решения, и "q:=q-w; w:=d-r;" при рабочем алгоритме не нужен.
Re: В чем моя ошибка?
от Владислав Пахомов - Среда 7 Март 2018, 20:50
  Похоже, вы делали по разбору. Он... Не верен. Скинул бы решение, да "одмены" забанят) Но, скажу, что ошибка в последних вычислениях, там где у вас: "r:=q-w+1;" Нужно придумать другой алгоритм решения, и "q:=q-w; w:=d-r;" при рабочем алгоритме не нужен.