1. группы кровипостройте круговую диаграмму распределения людей по группам крови, если людей с группой крови 0(l) в мире около 46%, с кровью группы а (ll) около 34%, группы в(lll) приблизительно 17%, а людей с самой редкой группой ав(lv) всего 3%.

Решение на паскаль.
начало решения задач одинаковое, а дальше см. внизу

program xxx;
var b: array [1..6, 1..6] of integer;
 i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
 b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end;

задание 1.
s:=0;
for i:= 1 to 6  do
  if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.

задание 2.
i:=2;
while i<=6 do begin
  for j:= 1 to 6 do
    if b[i,j]<0 then b[i,j]:=0;
  i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end
end.

#include <conio.h>

#include<iostream.h>

void main()

{

int n,s,p,a;

cout<<"Введите число》";

cin>>n;

s=0;

p=1;

while (n>0)

{

s=s+n%10;

p=p*(n%10);

n=n/10;

}

cout<<s <<endl;

cout<<p<<endl;

if ((s%10>0)&&(s/100==0))

cout<<"сумма двузначная"<<endl;

if ((p%100>0)&&(p/1000==0))

cout<<"произведение трехзначное"<<endl;

cout<<"Введите число a》";

cin>>a;

if (p>a)

cout<<"произведение > "<<a<<endl;

if (s%5==0)

cout<<"сумма кратна 5"<<endl;

if (s%a==0)

cout<<"сумма кратна "<<a<<endl;

}