Написать процедуру, вычисляющую площадь треугольника по его известным сторонам (используя формулу Герона). Используя её, вычислить площадь четырехугольника с известными сторонами и одной из диагоналей.
Var n, k, d2, d1, d0: integer; e2, e1, e0: integer;
procedure GetDigits(m: integer; var d2, d1, d0: integer); {Перевод числа [100..FFF]в 16-ю систему счисления} begin d0 := m mod 16; m := m div 16; d1 := m mod 16; d2 := m div 16 end;
begin n := 0; {Рассматриваем шестнадцатиричные числа от 100 до 7FF} for k := $100 to $7FF do begin GetDigits(k, d2, d1, d0); if (d2 = 2) or (d1 = 2) or (d0 = 2) then begin GetDigits(2 * k, e2, e1, e0); if d0 + d1 + d2 = e0 + e1 + e2 then n := n + 1 end end; writeln('n=', n) end.
могут использоваться:
ура ура
текст
Music
2 + 3(без точки в конце)
Объяснение:
Имя файла не должно содержать „<” (знак меньше), „>” (знак больше), „:” (двоеточие), „«” (двойные кавычки), „/” (слеш), „\” (обратный слеш), „|” (вертикальная черта), „?” (вопросительный знак), „*” (звездочка), а также не может заканчиваться точкой или пробелом. Файлы также нельзя называть зарезервированными именами устройств: CON, PRN, AUX, NUL, COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8, COM9, LPT1, LPT2, LPT3, LPT4, LPT5, LPT6, LPT7, LPT8, и LPT9.
n, k, d2, d1, d0: integer;
e2, e1, e0: integer;
procedure GetDigits(m: integer; var d2, d1, d0: integer);
{Перевод числа [100..FFF]в 16-ю систему счисления}
begin
d0 := m mod 16;
m := m div 16;
d1 := m mod 16;
d2 := m div 16
end;
begin
n := 0;
{Рассматриваем шестнадцатиричные числа от 100 до 7FF}
for k := $100 to $7FF do
begin
GetDigits(k, d2, d1, d0);
if (d2 = 2) or (d1 = 2) or (d0 = 2) then
begin
GetDigits(2 * k, e2, e1, e0);
if d0 + d1 + d2 = e0 + e1 + e2 then n := n + 1
end
end;
writeln('n=', n)
end.
Тестовое решение:
n=23