Составить алгоритм вычисления площади треугольника со сторонами a, b, c (a, b, c - вещественные положительные числа).

Знания

Информатика

1 ответ:

Халипат [24]4 года назад

0 0

var
a,b,c,S,p:real;
begin
readln(a);
readln(b);
readln(c);

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

Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!

OOtt [7]

var
a : array [1..15] of real;
i : integer;
c : real;
begin
randomize;
for i := 1 to 15 do
begin
a[i] := random (100);
write (a[i], ' ');
end;
writeln;
for i := 1 to 7 do
begin
c := a[i];
a[i] := a[15 - i + 1];
a[15 - i + 1] := c;
end;
for i := 1 to 15 do
write (a[i], ' ');
readln;
end.

0 0

3 года назад

При перекодировании сообщения из 8-битной кодировки в 16-битную информационный объём увеличился на 344 бита. Определите количест

dana2001 [2]

X - количество символов в сообщении:
8x + 344= 16x
8x = 344
x = 344 / 8 =

Ответ: в сообщении 43 символа.

0 0

4 года назад

Укажи количественный признак объкта книга

lavrik100390 [17]

Признак объектаВеличина, характеризующая свойство объекта, значения которой определяются по качественной шкале

0 0

4 года назад

Как записывается двоичное число 10000 в десятичной системе счисления. Желательно с объяснением.(Срочно!!!)

10000, 1*2 в 4 степени, 16 в 10тичной

0 0

3 года назад

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

Суть задачи такова: Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими про

Элеонора Николаева [53]

Программа для случая, когда в строке только "0", "1" и пробелы (т.е. проверки корректности ввода нет):
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,k,max:integer;
begin
if combobox1.Text<>'' then
begin
s:=combobox1.Text;
combobox1.Items.Insert(0,s);
s:=s+' ';
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
k:=0; max:=0;
for i:=1 to length(s) do
if s[i]<>' '
then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
label1.Caption:='Количество символов в самой длинной группе: '+inttostr(max);
end;
end;

0 0

4 года назад