Космическая археологическая экспедиция исследует космическое пространство в поисках сокровищ исчезнувших цивилизаций, сканируя сигналы разных планет. Получив соответствующий сигнал, экспедиция совершает посадку на планету. На каждой планете они находят какое-то количество сокровищ, оставляют маячок для грузового транспорта и летят дальше. Начальник экспедиции ведет бортовой журнал, в котором фиксирует, сколько сокровищ было на каждой планете, и передает эту информацию по специальной связи на Землю. К сожалению, начальник экспедиции заранее не знает, на скольких планетах сохранились сокровища.
определить, какой вместимости должен быть грузовой космический корабль, который нужно отправить вслед за экспедицией, когда будет подан сигнал об её окончании.
Формат входных данных
На вход программе подаются данные по строкам. В i-й строке информация о количестве сокровищ (целое число), найденных на i-й планете. В последней строке входных данных записано число 0.
Формат выходных данных
Выведите одно число – количество сокровищ, найденных экспедицией. Гарантируется, что число сокровищ, которые найдет экспедиция, меньше 109, а количество записей в бортовом журнале не превышает 106
b,c: string;
d,x,y: real;
i,j: integer;
begin
b:='ABCD'; c:='xy';
writeln('трапеция ABCD');
for i:=1 to 4 do
begin
writeln('координаты точки ',b[i],': ');
for j:=1 to 2 do
begin
write(' ',c[j],i,' = ');
readln(a[j,i]);
end;
end;
x:=(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2;
y:=(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2;
d:=sqrt(x*x+y*y);
writeln('длина средней линии: ',d:5:2);
end.
ввод - вывод
трапеция ABCD
координаты точки A:
x1 = 3
y1 = 2
координаты точки B:
x2 = 5
y2 = 5
координаты точки C:
x3 = 9
y3 = 5
координаты точки D:
x4 = 10
y4 = 2
длина средней линии: 5.50