Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.73 KB | None | 0 0
  1. program _;
  2. var c, h, m, s: integer;
  3. begin
  4.     readln(c);
  5.     h := c div 3600;
  6.     m := (c mod 3600) div 60;
  7.     s := c mod 60;
  8.     writeln (h, ' ', m, ' ', s)
  9. end.
  10. {----}
  11. program _;
  12. var l, v: integer;
  13. begin
  14.     readln(l);
  15.     readln(v);
  16.     if (l * 4.4444) > (v * 1.0668) then
  17.         writeln('l')
  18.     else if (l * 4.4444) < (v * 1.0668) then
  19.         writeln('v')
  20.     else
  21.         writeln('equal')
  22. end.
  23. {-------}
  24. program _;
  25. var n, i, o: integer;
  26. begin
  27.     o := 0;
  28.     for i := 1 to 10 do
  29.     begin
  30.         readln(n);
  31.         if n mod 2 = 1 then
  32.             o := o + 1;
  33.     end;
  34.     if o > 5 then
  35.         writeln('odd')
  36.     else if o < 5 then
  37.         writeln('even')
  38.     else
  39.         writeln('equal');
  40. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement