Часовая стрелка повернулась с начала суток на 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.

заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.