1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Отсюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else
write('Треугольник неравнобедренный');
end.
БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец
№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.
БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
если i - нечётное, то
прибавить к s
вывести s
конец
В double d1,d2 добавить переменную суммы s
double d1,d2,s;
вместо ??? записать s=d1+d2;
//PascalABC.Net 3.0, сборка 1064
var
a:array[1..7] of integer;
i:integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to 6 do begin
a[i]:=Random(20);
Write(a[i],' ')
end;
Writeln;
for i:=6 downto 3 do a[i+1]:=a[i];
Write('Введите значение вставляемого элемента: '); Read(a[3]);
Write('Результирующий массив: ');
for i:=1 to 7 do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Исходный массив: 8 2 5 0 6 17
Введите значение вставляемого элемента: -5
Результирующий массив: 8 2 -5 5 0 6 17
function Max(a, b, c: integer): integer;
var
m: integer;
begin
if a > b then
m := a
else
m := b;
if c > m then
m := c;
Max := m;
end;
function Min(a, b, c: integer): integer;
var
m: integer;
begin
if a < b then
m := a
else
m := b;
if c < m then
m := c;
Min := m;
end;
procedure Swap(var a, b: integer);
var
t: integer;
begin
t := a;
a := b;
b := t;
end;
var
a, b, c, t: integer;
begin
Write('Введи через пробел три числа: ');
Read(a, b, c);
Writeln('Max = ', Max(a, b, c), ', min = ', Min(a, b, c));
if b > a then
Swap(a, b);
if c > b then
begin
Swap(b, c);
if b > a then
Swap(a, b);
end;
Writeln(a, ' ', b, ' ', c);
end.