Часовая стрелка повернулась с начала суток на d градусов. вывести, сколько прошло с начала суток полных часов и минут. на вход программе подаётся целое число d от 0 до 360.

var d, m: integer;

var h: real;

begin

readln(d);

m : = d * 2;

h : = m / 60;

m : = m mod 60;

write('количество часов = ' + int(h) + ' количество минут = '+ m)

end.

понадобится 24 секунды.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.