Program _massiv;
var A:array[1..50] of real;
i,c:integer;
begin
writeln('Задайте количество членов линейного массива');
readln(c);
for i:=1 to c do begin
writeln('Введите',' ',i,' элемент массива');
readln(A[i]);
end;
for i:=1 to c do
writeln('Элемент массива ',i,' равен ',a[i]);
for i:=1 to c do
if A[i]=7.5 then writeln('Номер элемента массива, равный 7.5 ',i)
end.<span> </span>
<span>Cначала находим количество девочек в классе. Для этого двоичное число 110010 преобразуем в десятичную, пронумеровав каждую цифру в числе с права на лево, начиная с нуля. Номер числа - показатель степени двойки для дальнейшего суммирования. Там, где 0 - игнорим степень. Где 1- считаем её. В итоге находим сумму 2+16+32=50% девочек в классе. Также и с количеством мальчиков 1010= 2+8=10. Теперь 10 делим на 100%-50%=10/0.5=20 человек в классе. Ответ "Б"</span>
Uses GraphABC;
var n,i,a1,a2,r:integer;
begin
a1:=0;
write('Количество частей: ');
readln(n);
r:=round(360/n);
for i:=1 to n do
begin a2:=a1+r;
if i=n then a2:=360;
Brush.Color := clRandom;
Pie(300,250,200,a1,a2);
a1:=a2;
end
<span>end.
Если ввведено число, на которое 360 без остатка не делится, то один из секторов из-за округления получается больше, чем другие. Устранять это не стал, т.к. это привело бы к усложнению программы.</span>
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
1. Любой вид. К примеру - методом пузырьков.
2. Сортировка требуется для упорядочивания элементов.
3. Те, которые допускают сравнение друг с другом.
