5.6000E+02 - 4.2000E+01 + 3.1300E+003 = 560 - 42 + 3130 = 3648
Var
i, c,t:integer;
A: array[0..9] of integer;
Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;
c:=0;
for i:= 0 to 9 do //ошибка либо в условии либо в коде
if A[i]<A[0]
then
Begin
c:=c + 1;
t:=A[i];
A[i]:= A[0];
A[0]:= t;
end;
writeln('c= ', c);
readln;
<span>end.
Ответ: c=4
</span>
Ответ:
48 80
Объяснение:
program abcd;
var
i, j, k: shortint;
begin
for i := 1 to 100 do
begin
k := 2;
for j := 2 to i div 2 do
if i mod j = 0 then Inc(k);
if k = 10 then Write(i, ' ');
end;
end.
1 байт-8 бит
1 Кбайт-1024 байт
1 Мбайт-1024 Кбайт
1 Гбайт-1024 Мбайт
1 Тбайт-1024 Гбайт
1 буква-1 байт
Например Аппарат
У аппарата есть 7 букв
Теперь 7 × 8=56