Const n=3;
var a:array[1..n,1..n] of integer;
i,j,s,max,min:integer;
begin
max:=-32767;
min:=32767;
for i:=1 no n do
for j:=1 to n do
begin
readln(a[i,j]);
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln(max+min)
end.
Я так понимаю, необходимо написать программу по нахождению площади..
var
a, b, c:integer;
p:real;
begin
writeln('Введите значения длин сторон треугольника ');
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
p:=(a+b+c)/2;
write('Площадь треугольника = ',(sqrt(p*(p-a)*(p-b)*(p-c))):0:2);
end.
Уважаемые господа,
Настоящим сообщаем, что ввиду обстоятельств
непреодолимой силы (из-за сильного шторма), порт... временно закрыт и мы
не сможем поставить ваше судно под разгрузку.
Мы будем вам очень признательны, если вы задержите отгрузку
оборудования до нашего уведомления о прекращении форсмажорных
обстоятельств.
Надеемся, что эта кратковременная задержка не скажется отрицательно на графике поставок.
Чтобы посчитать количество информации нужно
1.умножить 16 бит (1 символ) на кол-во символов на одну строку
16*64=1024 бит
2.умножить информацию одной строки на количество строк на странице
1024*56=57344 бит
3.умножить информацию одной страницы на количество страниц
57344*1024=58720256 бит
4.поделить это число (объем документа в битах) на 8 тем самым переводя его в байты
58720256/8=7340032 байт
5.поделить это число на 1024 переводя его в килобайты
7340032/1024=7168 Кбайт
5 поделить еще раз на 1024 преводя файл в мегабайты
7168/1024=7
Ответ:7 Мбайт или номер 4
Задание 2
a := 14
b := a/2 (14 / 2 = 7)
a := b*b (7 * 7 = 49)
c := sqrt(a) (корень из 49 = 7)
Ответ: 7