1. 0,5 кб " (4096 \ 8) \ 1024 "
2. 1048576 байт " 1 * 1024 * 1024 "
3. 3.75 кб " (30720 \ 8) \ 1024"
4. 0.25 мб "1 сим. = 1 байт => (<span>262144 \ 1024) \ 1024 </span> "
5. 0.348 гб, НЕТ НЕЛЬЗЯ! "(365000 \ 1024) \ 1204"
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.
</span>Это реализовано с помощью цикла while:<span>
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
</span>Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.</span>
Одна лампа равна одному биту, так как можно представить, что включено - 1, выключено - 0.
<span>200 лежит в рамках от 128(2 в седьмой степени) до 256(два в восьмой степени), значит для 200 разных сигналов потребуется 8 ламп(бит)</span>
