var sum,n:int64;
begin
write('Vvedite chislo: ');
readln(n);
while(n>0) do begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
readln;
end.
Перед тем как попасть в D:\ пользователь был в SCHOOL. Так как SCHOOL не может быть уровнем выше чем D, он на уровень ниже. Других выходов в один из этих каталогов до того не было, значит, началом является либо сам каталог D:\SCHOOL, либо один из расположенных в нем(D:\SCHOOL\*). Из представленных вариантов ответа подходит только 2. Отсутствие противоречий легко проверить.
<span>V=K*I,</span><span>где V -
информационный объем рисунка (файла), К - общее количество точек рисунка
или разрешающая способность монитора, I <span>-
глубина цвета. И ещё на будующие 1366 и 768 это просто цифры а 1366х768 точек это уже совсем другое</span></span>
// PascalABC.NET 3.0, сборка 1088
var
n,i,max,min,s,t,k:integer;
begin
Write('Введите количество членов последовательности: ');
Read(n);
Writeln('Вводите числа через пробел');
max:=-32768; min:=32767; s:=0; k:=0;
for i:=1 to n do begin
Read(t);
if t<min then min:=t
else
if t>max then max:=t;
if t<0 then begin s:=s+t; Inc(k) end
end;
Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5)
end.
<em><u>Тестовое решение:</u></em>
Введите количество членов последовательности: 7
Вводите числа через пробел
25 -6 39 -118 271 24 -15
Min=-118, max=271, ср.арифм.=-46.33333
resque_of.stl 32 бит
drowning.bmp 5 байт (40 бит)
is_a_deal.jpeg 300 бит
of.doc 0.5 Кбайт
his.xls 1 Мбайт
hands.stl 2048 Кбайт (2 Мбайт)