НАДЕЮСЬ, ЧТО ВСЕ ВСЁ ПОНЯЛИ 7. ПРАКТИЧЕСКОЕ ЗАДАНИЕ. Внесите в содержимое элемента TITLEсвою фамилию имя и класс, а в тег пару предложений о вас, измените цвет фона и текста. Чтобы внести изменения в страницу, нужно выделить файл, нажать на выделенном правую клавишу мыши и выбрать команду Открыть с из контекстного меню, выбрать Блокнот. При этом исходный файл откроется в Блокноте или WordPad (для браузера Opera (либо открыть блокнот, Файл- Открыть- выбрать «все файлы» и найти сохраненный файл html- Открыть) После изменения файл необходимо сохранить, перейти в окно браузера (с панели задач) и если был открыт этот же файл до изменения обновить документ (нажав на F5 или кнопку обновления).

На скейтборде и на роликах умеют кататься 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;