Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program _;
- var c, h, m, s: integer;
- begin
- readln(c);
- h := c div 3600;
- m := (c mod 3600) div 60;
- s := c mod 60;
- writeln (h, ' ', m, ' ', s)
- end.
- {----}
- program _;
- var l, v: integer;
- begin
- readln(l);
- readln(v);
- if (l * 4.4444) > (v * 1.0668) then
- writeln('l')
- else if (l * 4.4444) < (v * 1.0668) then
- writeln('v')
- else
- writeln('equal')
- end.
- {-------}
- program _;
- var n, i, o: integer;
- begin
- o := 0;
- for i := 1 to 10 do
- begin
- readln(n);
- if n mod 2 = 1 then
- o := o + 1;
- end;
- if o > 5 then
- writeln('odd')
- else if o < 5 then
- writeln('even')
- else
- writeln('equal');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement