1.
1024*32*64*8 (бит)=1024*32*64 (байт) = 32*64 Кбайт = 2048 Кбайт
2.
0,5 Мбайт = 1024*0,5 Кбайт = 512 Кбайт
2048 байт = 2048/1024 Кбайт = 2 Кбайт
512+2=514
Ответ: хватит
3.
Переводим Кбиты в биты и мин в сек:
360*1024/(3*60) = 2048 бод
Var
A: array [1..20] of integer;
B, C: array [1..10] of integer;
i, tmp: byte;
begin
for i := 1 to 20 do
begin
A[i] := random(30)+1;
write(A[i]:4);
tmp := tmp + 1;
if i mod 2 <> 0 then C[tmp] := A[i]
else
begin
B[tmp - 1] := A[i];
tmp := tmp - 1;
end;
end;
writeln;
for i := 1 to 10 do write(B[i]:4);
writeln;
for i := 1 to 10 do write(C[i]:4);
end.
Var i,max:integer;
a:array[1..40]of integer;
begin
max:=-1;
writeln('Введите значения членов массива');
for i:=1 to 40 do begin
readln(a[i]);
if (a[i] mod 8 =7) and (a[i]>max) then max:=a[i];
end;
if (max<>-1) then writeln('Максимальное число:',max) else writeln('Чисел по заданному параметру нет');
end.
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.
