Все переведем в байты
А) 4098 БАЙТ
Б) 4 БАЙТА
В) 36 БИТ = 36/8 = 4,5 БаЙТА
Г) 5 БАЙТ
Д) 4 Кбайт = 4×1024 = 4096 БАЙТ
Е) 31 БИТ = 31/8 = 3.875 БАЙТ
А Д Г В Б Е
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var m:=ReadInteger('Число минут:');
Writeln(m div 60,'ч ',m mod 60,'м')
end.
<u><em>Тестовое решение:</em></u>
Число минут: 150
2ч 30м
const n=10;
var a:array [1..n] of integer;
i,max,min,imax,imin:integer;
begin
min:=100;
max:=1;
write(' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(100)+1;
if a[i] > max then
begin
max:=a[i];
imax:=i
end;
if a[i] < min then
begin
min:=a[i];
imin:=i
end;
write(a[i]:3,' ')
end;
writeln;
a[imax]:=min;
a[imin]:=max;
write('Полученный массив: ');
for i:=1 to n do write(a[i]:3,' ')
end.
1.Две формулы алгебры А и В называються равносильными, если они принимают одинаковые логические значения на любом наборе значений, входящих в фурмулы элементарных высказываний.Равносильность формулы обозначают "=".
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Введите 10 целых чисел:',10);
var pe:=a.Where(t->t.IsEven).Count/10;
Writeln('Нечетных ',100*pe,'%, четных ',100*(1-pe),'%')
end.
<u>Пример</u>
Введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34
Нечетных 60%, четных 40%