Question

Известный исследователь, устав от долгого путешествия по джунгли, лег спать в 10 часов вечера. перед этим он завел будильник на 12 часов следующего дня. к сожалению, проспать 14 часов ему не удалось, т.к. будильник зазвонил уже через 2 часа. исследователь забыл, что на будильнике, имеющем 12-ти часовой циферблат, можно задать время до звонка только менее 12 часов. требуется написать программу, которая определяет, сколько часов успеет проспать исследователь, прежде чем будильник его разбудит.

Answer 1

Ооочень уж больно знакомая задачка ))) решаю с файлами - так как во всех случаях обычно она даётся на решение с файлами))
var s,t:integer;
begin
assign(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;
begin
writeln('s=');
readln(s);
writeln('t=');
readln(t);
if s<=t then writeln(t-s) else writeln (t+12-s);
readln;
end.

УСПЕХОВ :)