Advertisement
Guest User

Untitled

a guest
Sep 25th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. program Skrydis;
  2. var a,b,c,v,m:integer;
  3. begin
  4. WriteLn('Įveskite lėktuvo pakilimo laiką (valandas, o po to minutes)');
  5. Readln(a,b);
  6. WriteLn('Įveskite laiką, kurį lėktuvas praleido ore (minutes)');
  7. ReadLn(c);
  8. v:=(a*60+b+c) div 60 mod 24;
  9. m:=(a*60+b+c) mod 60;
  10. WriteLn('Lėktuvas leisis, kai bus ',v,' valandų ir ',m,' minutės');
  11. ReadLn
  12. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement