Вэлек¬трон¬ную таб¬ли¬цу за¬нес¬ли ре¬зуль¬та¬ты сдачи нор¬ма¬ти¬вов по лёгкой ат¬ле¬ти¬ке среди уча¬щих¬ся 7-11 классов. на ри¬сун¬ке при¬ве¬де¬ны пер¬вые стро¬ки по¬лу¬чив¬шей¬ся таблицы: a b c d e f g 1 фамилия имя пол год рождения бег 1000 метров, мин. бег 30 метров, сек. прыжок в длину с места, см 2 пудова ксения ж 1997 4,47 4,12 209 3 гусева мария ж 1998 4,47 5,82 205 3 лелькова надежда ж 1999 5,03 5,24 198 5 тиль евгений м 1999 3,32 5,87 210 6 лиманина нелли ж 1998 5,57 5,32 182 в столб¬це а ука¬за¬на фамилия; в столб¬це в — имя; в столб¬це с — пол; в столб¬це d — год рождения; в столб¬це е — результаты в беге на 1000 метров; в столб¬це f — результаты в беге на 30 метров; в столб¬це g — результаты по прыж¬кам в длину с места. всего в элек¬трон¬ную таб¬ли¬цу были за¬не¬се¬ны дан¬ные по 1000 учащихся. выполните . откройте файл с дан¬ной элек¬трон¬ной таб¬ли¬цей (расположение файла вам со¬об¬щат ор¬га¬ни¬за¬то¬ры экзамена). на ос¬но¬ва¬нии данных, со¬дер¬жа-щих¬ся в этой таблице, от¬веть¬те на два вопроса. 1. сколько про¬цен¬тов участ¬ни¬ков по¬ка¬за¬ло ре¬зуль¬тат по прыж¬кам в длину более 2 метров? ответ за¬пи¬ши¬те в ячей¬ку l1 таблицы. 2. найдите раз¬ни¬цу в се¬кун¬дах с точ¬но¬стью до де¬ся¬тых между сред¬ним ре¬зуль¬та¬том участ¬ни¬ков 1996 года рож¬де¬ния и сред¬ним ре¬зуль¬та¬том участ¬ни¬ков 1999 года рож¬де¬ния в беге на 30 метров. ответ на этот во-прос за¬пи¬ши¬те в ячей¬ку l2 таблицы
День,Месяц:byte;
Begin
Write('№ дня = ');ReadLn(День);
Var C:=365-День;
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.
Var
День,месяц:byte;
Begin
Write('№ дня = ');ReadLn(День)
Var C: = 365 - День
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.