1. Представьте информацию в структурном виде так, чтобы ее было легче воспринимать: «Озеро Байкал находится на юг Восточной Сибири. Длина озера 636 км, ширина 80 км, площадь 31 722 км², объём 23 615,390 км³. Длина береговой линии Байкала примерно 2100 км. Байкал – самое глубокое озеро на Земле, его глубина 1642 м. В Байкал впадает 336 рек, в том числе Селенга, Верхняя Ангара, Баргузин. Вытекает из Байкала единственная ре-ка – Ангара».
2. Представьте информацию в структурном виде так, чтобы ее было легче воспринимать:
«Василий Пупкин летел из Перми в Ростов-на-Дону через Москву. Самолет из Перми в Москву летит 2 часа 15 мин, билет стоит 4100 рублей. Полет из Москвы в Ростов-на-Дону стоит 6500 рублей и длится 1 час 50 мин. Из Ростова-на-Дону Вася на пригородном такси за 100 рублей приехал в порт Азов (время поездки – 1 час 10 минут), а оттуда на катере – в село Круглое (время поездки – 1,5 часа, стоимость 500 рублей)».
3. Представьте информацию в структурном виде так, чтобы ее было легче воспринимать:
«В поход решили взять палатку, котелок, топор, хлеб, тушенку, гречу, макароны, чай».
4. Представьте информацию в структурном виде так, чтобы ее было легче воспринимать:
«Разработка программы обычно выполняется в несколько этапов. Сначала необходимо четко поставить задачу, сформулировать техническое задание – требования к про-грамме. После этого разрабатывается алгоритм решения задачи. Следующий этап - ко-дирование, то есть написание программы на каком-то языке программирования. Затем выполняется отладка, а когда программа отлажена – тестирование, то есть проверка ее работы в разных режимах. Завершающие этапы – разработка документации и сопро-вождение программы после сдачи заказчику (обучение пользователей, ответы на вопро-сы, исправление найденных ошибок)».
5. Представьте информацию в структурном виде так, чтобы ее было легче воспринимать:
«В подсемействе Енотовые биологи выделяют 4 рода: еноты (енот-ракоед, тремарьяс-ский енот, барбадосский енот, енот-полоскун, багаманский енот, гваделупский енот, козумельский енот); коати или носатые еноты (белоносый коати, южноамериканский коати); горные коати и кольцехвостые еноты (какомицли, центральноамериканский ка-комицли)».
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
Посчитаем объем земли, который был снят.
Всю землю можно разделить на фигуры толщиной 1 метр, в основании которых трапеции с высотой 1 м и основаниями - двумя соседними измерениями высоты. Тогда объем каждой фигуры V(i) = (h(i) + h(i + 1)) / 2, полный объем V = V(1) + V(2) + ... + V(N - 1) = h(1)/2 + (h(2) + h(3) + ... + h(N - 2)) + h(N - 1)/2
Объем земли, который использовался для засыпания, равен V = h (N - 1).
Эти объемы, конечно, равны, тогда h = (h(1)/2 + h(N - 1)/2 + (h(2) + h(3) + ... + h(N - 2))/(N - 1)
PascalABC.NET 3.2.1518:
begin
var N := ReadInteger;
print(ReadSeqInteger(N)
.Select((x, i) -> (i = 0) or (i = N - 1) ? x/2 : x)
.Sum / (N - 1))
end.
С вводом-выводом в файл:
begin
var f := OpenRead('INPUT.TXT');
var N := f.ReadInteger;
var S := f.ReadInteger / 2;
for var i := 2 to N - 1 do
S += f.ReadInteger;
S += f.ReadInteger / 2;
print(S / (N - 1))
end.