Programalama > PASCAL

Uses crt;
Var
Sa1,sa2,a,b,c,d,e,f:integer;
Begin
CLRSCR;
gotoxy(1,20);writeln('MURAT-ÖMER');
Write(‘İKİ SAAT ARASINDAKİ FARKI BULUR’);readln;
Write(‘SAATLERİ [1730] SEKLİNDE GİRİN’);readln;
Write(‘BİRİNCİ SAATİ GİRİN==’);readln(sa1);
Write(‘İKİNCİ SAATİ GİRİN===’);readln(sa2);
a:=(sa1-sa2);
b:=(a mod 100);
d:=(b mod 60);
e:=(a div 100);
f:=(b div 100);
e:=(e+f);
if e<0 then d:=d*-1;
write(sa1,&#8217; İLE &#8217;,sa2,&#8217; ARASINDAKİ FARK==&#8217;);
writeln(e,&#8217;:&#8217;,d);
readln;
end.