Program z1;
var a,b,c,s,p:real;
begin
writeln('введите три стороны треугольника');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-c)*(p-b));
writeln(s);
end.
Тип данных Длина Диапазон значений
байт
ЦЕЛЫЕ ТИПЫ
integer 2 -32768...32767
byte 1 0...255
word 2 0...65535
shortint 1 -128...127
longint 4 -2147483648...2147483647
ВЕЩЕСТВЕННЫЕ ТИПЫ
real 6 2,9 * 10^-39 ... 1,7 * 10^38
single 4 1,5*10^-45 ... 3,4*10^38
double 8 5*10^-324 ... 1,7*10^308
extended 10 3,4*10^-4932 ... 1,1*10^4932
ЛОГИЧЕСКИЙ ТИП
boolean 1 true, false
СИМВОЛЬНЫЙ ТИП
char 1 все символы из таблицы ASCII
1) Вес файла = 640 * 480 * 24 = 7372800 бит ( 8 * 3 = 24 бит)
Времени понадобится = 7372800/28800 = 256 секунд
2) x МБайт = 1024x КБайт
10ГБайт = 10 * 1024 * 1024 =
КБайт
Откуда
3) Это аналог двоичной системы счисления, где
A = 0, Б = 1.
На первом позиции стоит число со значением 0.
Значит на 7 месте будет число 7 - 1 = 6 = 110 = ББА
Обозначим
. Тогда система превращается в такую:
Пусть
. Тогда
. Учитывая, что уравнение
имеет 1 решение
, а
- 3 решения, а также вспоминая, что все переменные независимы, получаем по правилу умножения, что в этом случае будет
решений.
Если
, всё будет так же с точностью до замены 1 на 0 и наоборот, в этому случае будет тоже 27 решений.
Всего возможных наборов 27 + 27 = 54.
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (x, y) := ReadReal2;
Print((1 + Sqr(Sin(x + y))) / (2 + Abs(x - 2 * x / (1 * Sqr(x * y)))) + x)
end.
<h2>Пример</h2>
3.1 -0.273
3.24500687418188