1. k=64*40*48=122880(символов)
i=8(бит)
I=k*i=122880*8(бит)=122880(байт)=120(Кбайт)
Ответ: 1)
2. k=48*40*32=61440(символов)
i=8(бит)
I=k*i=61440*8(бит)=61440(байт)=60(Кбайт)
Ответ: 4)
1)
begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var i:=a.IndexMax;
Writeln('Максимум A[',i+1,']=',a[i]);
<span>end.
</span>
2)
const n=6;
type
Q=record
ch:integer;
zn:integer;
end;
var a:array[1..n] of Q;
j,k,max:integer;
f:boolean;
mx:Q;
begin
write('k: ');
readln(k);
for var i:=1 to n do
begin
writeln('Дробь ',i);
write('Введите числитель= ');
readln(a[i].ch);
repeat write('Введите знаменатель= ');
readln(a[i].zn);
until a[i].zn>0;
end;
writeln('Введенные дроби:');
for var i:=1 to n do
write(a[i].ch,'/',a[i].zn,' ');
writeln;
j:=0;
for var i:=1 to n do
if (a[i].ch div a[i].zn mod k = 0) then j:=j+1;
writeln('кол-во ',j);
end.
Пример
k: 8
Дробь 1
Введите числитель= 16
Введите знаменатель= 2
Дробь 2
Введите числитель= 64
Введите знаменатель= 8
Дробь 3
Введите числитель= 120
Введите знаменатель= 15
Дробь 4
Введите числитель= -15
Введите знаменатель= 5
Дробь 5
Введите числитель= -16
Введите знаменатель= 2
Дробь 6
Введите числитель= -8
Введите знаменатель= 1
Введенные дроби:
16/2 64/8 120/15 -15/5 -16/2 -8/1
кол-во 5
1. У меня в комнате сейчас пустое множество драконов.
2. Мои родители являются множеством мощности 2.
3. Множество возможных слов языка
4. Множество точек в отрезке.
Или
1. [1, 2] ∩ [9, 19]
2. {1, 4}
3. Множество всех многочленов с целыми коэффициентами.
4. Множество непрерывных функций на отрезке [0, 1].
Program danya;
uses crt;
var i,k:integer;
begin
clrscr;
k:=0;
for i:=1000 to 9999 do begin
if (i mod 15=0) and (i mod 17 =0) then k:=k+1; end;
Writeln('Количество чисел= ', k);
readln;
<span>end.</span>