1)32 символьный алфовит это 5 бит 5*80/8=50 байт
2)5*40*60*8:1024=93.75 кб
3)3*1024*8/6144=4
Var a:integer;
begin
write('a = ');
readln(a);
writeln('1-я цифра: ',abs(a) div 100);
writeln('2-я цифра: ',abs(a) div 10 mod 10);
writeln('3-я цифра: ',abs(a) mod 10);
end.
Пример:
<span>a = 724
1-я цифра: 7
2-я цифра: 2
3-я цифра: 4</span>
Фрагмент — это некоторое количество рядом стоящих символов,которые можно рассматривать как единое целое<span>.</span>
Type
LinMass = array [1..1000] of Integer;
var
A: LinMass;
N, i, j: Integer;
begin
Write('Количество элементов массива: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('Введите A[', I, '] ');ReadLn(A[i]);
end;
i := 1;
while (i <= n) do
if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
for j := i + 1 to n do
A[j - 1] := A[j];
n := n - 1
end
else i := i + 1;
for I := 1 To N Do
write(a[i]:6);
end.
Да. решение должно иметь от 20до5000символов :)
