На скейтборде и на роликах умеют кататься 10 человек, а 3 из них катаются еще и на сноуборде. Следовательно, кататься только на скейтборде и на роликах умеют 10-3=7 ребят. Аналогично получаем, что только на скейтборде и на сноуборде умеют кататься 8-3=5 ребят, а только на сноуборде и на роликах 5-3=2 человека. Определим теперь, сколько человек умеют кататься только на одном спортивном снаряде. Кататься на сноуборде умеют 30 человек, но 5+3+2=10 из них владеют и другими снарядами, следовательно, только на сноуборде умеют кататься 20 ребят. Аналогично получаем, что только на скейтборде умеют кататься 13 ребят, а только на роликах – 30 ребят. По условию задачи всего 100 ребят. 20+13+30+5+7+2+3=80 – ребят умеют кататься хотя бы на одном спортивном снаряде. Следовательно, 20 человек не умеют кататься ни на одном спортивном снаряде.
20 человек не умеют кататься ни на одном спортивном снаряде.
Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
const
n = 15;
begin
var a := ArrRandom(n, 0, 50).Sorted;
var b := ArrRandom(n, 0, 50).Sorted;
a.Println;
b.Println;
a := a.Concat(b).Sorted.ToArray();
a.Println;
end.