//Это человечек в профиль.
//Pascal ABC.NET v3.1 сборка 1172
Uses
GraphABC;
Var
i:integer;
begin
maximizewindow;
for i:=100 to 500 do
begin
clearwindow();
setbrushcolor(clGold);
circle(i,i,10);
circle(i,i+30,6);
circle(i,i+65,6);
setbrushcolor(clgray);
ellipse(i-15,i+10,i+15,i+60);
setbrushcolor(clGold);
circle(i,i+30,6);
sleep(40);
end;
end.
Гарнитуры наве волябвьчбвьлчсшрное
Program n1;
const n=5;
var a: array [1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]=7) then k:=k+1;
writeln('количество: ',k);
end.
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.
Недостатки : глушение сигнала ( как естественное так и с помощью устройств )
преимущества : простота в использовании и обслуживании , без проводов