Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
<span>Память человека это высшая функция нервной деятельности, и процессы в которой не до конца изучены, я бы не стал называть ее строго оперативной. Она бывает кратковременной и долговременной, сенсорной, нервно мышечной. не может быть полноценно описана современными методами информатики</span>