Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,c,s,p: real;
begin
read(a,b,c);
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
write(s: 0: 2);
end.
вроде так
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
64 = 1000000
-120 = -1111000
-96 = -1100000
57 = 111001
вот конвертер:
Популярные вопросы