Jater

Nikita_degree _on_time

Nov 27th, 2012
84
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program Vremya;
  2. var h,m,s,z:integer;
  3.     g:real;
  4. begin
  5.     write('Vvedite vremya v formate h m s: ');
  6.     repeat
  7.         readln(h,m,s);
  8.         if ((h<0)or(h>23))or((m<0)or(m>59))or((s<0)or(s>59)) then
  9.             write('Vvedeno ne korrectnoe vremya, povtorite vvod: ');
  10.     until (((h>0)and(h<23))or((m>0)and(m<59))or((s>0)and(s<59)));
  11.     if h>11 then
  12.         h:=h-12;
  13.     g:=(((s/60)+m)/60)+h;
  14.     g:=g*30;
  15.     writeln('ugol mejdu strelkoy nachala sutok i zadannoy: ',g:0:2,' gradusov');
  16.     read;
  17. End.
RAW Paste Data