Анимация процесса копирования или архивации
_____________________________________
Var i,n,hi,kol:integer;
begin
kol:=0;
for i:=1 to n do //Задаем цикл
begin
readln(hi); //Вбиваем рост претендента
if hi>=170 then //Проверяем, соответствует ли его рост условию
kol:=kol+1; //Счетчик кол-ва подходящих под условие претендентов
end;
end.
А)пиксель
ответ:а) пиксель
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.