В электронную таблицу занесли данные о тестировании учеников. Ниже приведены первые пять строк таблицы.
В столбце A записан округ, в котором учится ученик; в столбце B – фамилия; в столбце C – любимый предмет; в столбце D – тестовый .
Всего в электронную таблицу были занесены данные по 1000 ученикам.
Выполните задание
Откройте файл с данной электронной таблицей task19-33.xls. На основании данных, содержащихся в этой таблице, ответьте на два во Сколько учеников в Северо-Западном округе (СЗ) выбрали в качестве любимого предмета русский язык? ответ на этот во запишите в ячейку H2 таблицы.
2. Каков средний тестовый у учеников Западного округа (З)? ответ на этот во запишите в ячейку H3 таблицы с точностью не менее двух знаков после запятой.
Полученную таблицу необходимо сохранить и сдать на проверку.
// PascalABC.Net 3.2
begin
Write(ReadlnString('->').ToWords.Where(x->x.Left(2)='со').Count)
end.
Пример:
-> Три собаки сосали одну косточку
2
А вот так (примерно, потому что обычно еще хуже) учат писать программы в школе...
var
s:string;
i,n,k,p:integer;
begin
Write('->'); Readln(s);
if Copy(s,1,2)='со' then k:=1 else k:=0;
Delete(s,1,3);
repeat
i:=Pos(' со',s);
if i>0 then begin
Inc(k);
Delete(s,1,i+3)
end
until i=0;
Writeln(k)
end.