1. Не знаю, как совместить стороны и диагонали в одном решении, сделал нахождение по диагоналям.
var d1, d2, S: real;
begin
write('Введите диагонали d1 и d2');
readln(d1, d2);
if(d1>0) and (d2>0) then
begin
S:=(d1*d2)/2;
writeln('Площадь равна: ', S)
end
else
writeln('Условия неверны!')
<span>end.
Чтобы написать, достаточно знать основы паскаля. Если есть вопросы к какой-либо строке - напиши.
2. </span><span>16*sqr(sqr(x))-(sqrt(x))</span>
Ответ:
Переведем размеры изображения в точки.
48.26×1200=57912 точек .
Размер изображения составит 57912×57912=3353799744 точек.
Глубина цвета - это количество бит , которые требуются для кодирования цвета одной точки. 16 бит - это 16/8=2 байта.
Тогда общий объём составит 3353799744×2= 670759948800байт.
Переводим в килобайты:670759948800 /1024≈6550390.13 Кбайт.
Переводим в мегабайты:6550390.13 /1024≈6396.87 Мбайт
Моно и в гигабайты перевести: 6396.87/1024≈6.25 Гбайт.
Var
k, p, s: integer;
begin
readln(k, p, s);
k := k * (100 + p);
writeln((100 * s) div k);
end.
var
a:array[1..100, 1..100] of integer;
n, m, count, i, j, max:integer;
begin
randomize;
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('Исходный массив :');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(11);
write(a[i, j], ' ');
end;
writeln;
end;
max := a[1, 1];
for i := 1 to m do
for j := 1 to n do
if a[i, j] > max then
max := a[i, j];
writeln('Max = ', max);
for i := 1 to m do
begin
count := 0;
for j := 1 to n do
if a[i, j] = max then
inc(count);
writeln('В строке', i ,' находится', count, ' максимальных элементов');
end;
readln;
end.
Ответ: BАЖГЕБД так как в начале идёт протокол, далее двоеточие и двойной слэш ,потом имя сервера, слэш и наконец имя файла.