ооочень уж больно знакомая задачка ))) решаю с файлами - так как во всех случаях обычно она даётся на решение с файлами))var s,t:integer;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);read(s,t);if s<=t then writeln(t-s) else writeln (t+12-s);close(output );end.___________________________та же задача б то же решение токо без файлов))var s,t:integer;beginwriteln('s=');readln(s);writeln('t=');readln(t);if s<=t then writeln(t-s) else writeln (t+12-s);readln;end._______________________
УСПЕХОВ :)