(ПАСКАЛЬ) определить цифры С, Т и О и вывести их на экран. cto+cot=toc CTO=C*100+T*10+0
program pr;
var c,t,o:integer;
begin
for c:=1 to 9 do
for t:=1 to 9 do
for o:=0 to 9 do
if c*100+t*10+o+c*100+o*10+t=t*100+o*10+c
then writeln('CTO=',c,t,o);
readln
end.
Буду благодарна, если отметите