Var a,b,alpha,s:real; begin writeln('Вычисление площади треугольника'); writeln('Введите (через пробел) длины двух сторон (см) треугольника'); readln(a,b); writeln('Введите величину угла (градус) между сторонами треугольника'); readln(alpha); alpha:=DegToRad(alpha); writeln('Площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.') end.
Тестовое решение:
Вычисление площади треугольника Введите (через пробел) длины двух сторон (см) треугольника 25 17 Введите величину угла (градус) между сторонами треугольника 30 Площадь треугольника: 106.25 кв.см.
Вычисление площади треугольника Введите (через пробел) длины двух сторон (см) треугольника 11 16.3 Введите величину угла (градус) между сторонами треугольника 39 Площадь треугольника: 56.4185730576179 кв.см.
function reverse(const s: String): String; begin if Length(s) = 1 then reverse := s else reverse := s[Length(s)] + reverse(Copy(s, 1, Length(s) - 1)); end;
var lst: List<string> := new List<string>(); s, s1: string;
begin writeln('Конец последовательности - пустая строка'); while (true) do begin readln(s); if (s.Length = 0) then break else lst.Add(s); end; writeln(); foreach s in lst do begin if ((s <> lst.Last()) and (s = reverse(s))) then writeln(s); end; end.
все остальное - это предметы, которые создал человек