4 года назад

Вычислить площадь четырехуголника АВСД по его сторонам абсд используя вычисления площади треугольника по формам герона

Знания

Информатика

1 ответ:

Artuf4 года назад

0 0

S = √(p·(p - a)·(p - b)·(p - c))
(Все выражение после «=» находится под корнем)

Читайте также

Составить программу которая заполняет массив из 10 элементов случайными целыми числами из положительные, отрицательные и нулевые

юрманкарман

var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.

если что то не понятно,спрашивай)

0 0

4 года назад

Составить блок-схему произведения чисел от 20 до 50 кратных 5

Глеб Копейкин

Var i,p:integer; beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.

0 0

4 года назад

Написать программу,которая запрашивает ввод вещественного числа в переменную С,умножает это число на ,2 и выводит результат на э

Еллленааа

var c:real;
begin
 read(c);
 writeln(c*2);
end.

0 0

4 года назад

Ввести с клавиатуры знак арифметической операции (либо+ либо - либо * либо /(деление)и .два числа. Вывести на экран результат. П

cgfgvbhn

uses crt;

var a,b,s:real; z:char;
begin
write('Vvedite A = ');
readln(a);
write(' + - / * : ' );
readln(z);
write('Vvedite B = ');
readln(b);
case z of
'+': begin s:=a+b; writeln(a,' + ',b,' = ',s); end;
'-': begin s:=a-b; writeln(a,' - ',b,' = ',s); end;
'*': begin s:=a*b; writeln(a,' * ',b,' = ',s); end;
'/': begin s:=a/b; writeln(a,' / ',b,' = ',s); end;
else
writeln('error: incorrect operation symbol!!!');
end;
readln;
end.

0 0

4 года назад

1 файл весит 1024 байта, а второй 2048 бит определить размер файлов в кб

Дмитрий Бегинин

Ответ:

1024 байта = 1 Кбайт

2048 бит = 0,25 Кбайт

Объяснение:

2048 бит = 2048 / 8 / 1024 = 0,25 Кбайт

0 0

3 года назад

Прочитать ещё 2 ответа