Запишите, какой тип диаграммы необходимо выбрать для отображения состава лекарственного сбора трав, если известно, какую часть сбора (в %) составляет каждая из трав. *
type a = array[0..999] of Integer; var B, num: a; var N, k: integer;
procedure SimpleNumber(B: a); begin for var i := 0 to N-1 do begin for var j := 2 to 9 do begin if B[i] mod num[j] <> 0 then k += 1; end; if k = 8 then begin write('Есть простое число'); break; end else if (k <> 8) and (i = N-1) then write('Нет простых чисел'); k := 0; end; end;
begin for var i := 2 to 9 do begin num[i] := i; end; read(N); for var i := 0 to N-1 do read(B[i]); SimpleNumber(B); end.
Uses crt; type TDMassiv = record intMassiv : array of integer // Создали тип "динамический массив" end; var N, i, k : integer; A : TDMassiv // Создали переменную A нового типа TDMassiv Begin clrscr; randomize; write('Vvedite kol-vo chisel'); readln(N); SetLength(A, N) // Определяем, что массив А будет размера N элементов. for i=1 to N do begin A[i] := random(10001); // Заполняем массив случайными числами [0..10000] end; k := 0; // k - это счетчик трехзначных чисел for i=1 to N do begin if (A[i] >= 100) AND (A[i] <= 999) then k := k+1; // Считаем трехзначные числа end; if k := 0 then writeln ('HET') else writeln('Trehznachnyh chisel = ', k); // Выводим посчитанное количество чисел на экран END.
type a = array[0..999] of Integer;
var B, num: a; var N, k: integer;
procedure SimpleNumber(B: a);
begin
for var i := 0 to N-1 do begin
for var j := 2 to 9 do begin
if B[i] mod num[j] <> 0 then
k += 1;
end;
if k = 8 then begin
write('Есть простое число');
break;
end
else if (k <> 8) and (i = N-1) then
write('Нет простых чисел');
k := 0;
end;
end;
begin
for var i := 2 to 9 do begin
num[i] := i;
end;
read(N);
for var i := 0 to N-1 do
read(B[i]);
SimpleNumber(B);
end.