Маша-играет на рояль говорит по английски
Ольга-играет на скрипке говорит на французском
Лена-играет на виолончели язык определить не возможно
Валентина-играет на арфе знает итальянский язык
1. 2 байта (каждый символ) * 64 (символа в строке) * 36 (строк на странице) * 14 (страниц в тексте) = 64512 байт = 63 килобайта, ответ 4
2. 8 бит = 1 байт,
1 байт (каждый символ) * 48 (символов в строке) * 36 (строк на странице) * 48 (страниц в тексте) = 82944 байт = 81 килобайт, ответ 3
Type LinMass = array [1..1000] of Integer;
<span>Var A : LinMass; N, i, j : Integer; </span>
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] mod 2 = 0) and (A[i] mod i = 0) and (A[i] div 1000 = 0) and (A[i] div 100 > 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);
<span>end.</span>