Ввод нуля означает завершение ввода(он нигде не учитывается)
program test;
var sum, x, counter, sumOfNegative, sumOfPositive: integer; average: real;
begin
sum:=0;
average:=0;
counter:=0;
sumOfPositive:=0;
sumOfNegative:=0;
read(x);
while x <> 0 do
begin
sum:=sum+x;
average:=average+x;
counter:=counter+1;
if x > 0 then
sumOfPositive:=sumOfPositive+x
else
sumOfNegative:=sumOfNegative+x;
read(x);
end;
average:=average/counter;
writeln('Sum = ', sum);
writeln('Arithmetic average = ', average);
writeln('The sum of positive numbers = ', sumOfPositive);
writeln('The sum of negative numbers = ', sumOfNegative);
readln;
end.
Это самая крупная библиотека , существовавшая в 3-4 веках н.э. Во времена Юлия Цезаря, случился пожар, и большая часть библиотеки была уничтожена. Ходили слухи, что все таки она сохранилась. Но результатов никаких нет и поныне. Сейчас на ее месте находится новая библиотека "Библиотека Александрина".
Это как то в кратце.
информация хранится во внешней памяти и обозначения именем - файл
516,22₁₀=5*10²+1*10¹+6*10⁰+2*10⁻¹+2*10⁻²
² ¹ ⁰⁻¹⁻²
17,03₁₀=1*10¹+7*10⁰+0*10⁻¹+3*10⁻²
¹ ⁰⁻¹⁻²