Часовая стрелка образует угол y с лучом, проходящим через центр и через точку, соответствующую 12 часам на циферблате, 0

Var fi,u: real; h,m: word; begin repeat write(' угол часовой стрелки от 0 до ',2*pi: 0: 2,' fi='); readln(fi); until(fi> =0)and(fi< =2*pi); m: =trunc(fi*2*180/pi); h: =m div 60; writeln('часов=',h); m: =m mod 60; writeln('минут=',m); u: =m*6*pi/180; write('угол минутной стрелки=',u: 0: 2,' rad'); readln end.

                                                              алгоритм перехода улицы по свотофору

1.посмотреть какой цвет на светофоре

2.если зеленый то посмотреть направо 

3.посмотреть налево

4.если машын нету, то начать переходить

5.дойти до островка и снова  посмотреть направо и налево и перейти дорогу

                                                                  алгоритм посадки дерева

1.взять лопату и выкопать ямку, положыть лопату

2.взять садженец и поставить его в ямку

3.взять ведро и полить садженец, положыть ведро

4.взять лопату и закопать садженец, положыть лопату

5.взять ведро и полить садженец, положить ведро

 

 

 

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

 

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

 

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);