Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v{?} 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}
end
else if i mod 2<>0 then v:=v 1;{здесь тоже самое}
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите стороны треугольника:');
if (a+b>c) and (a+c>b) and (b+c>a) then begin
var alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
var beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
var gamma:=Pi-alpha-beta;
var max:=Max(Max(alpha,beta),gamma);
var d:=max-Pi/2;
if abs(d)<=1e-12 then Writeln('Треугольник прямоугольный')
else if d<0 then Writeln('Треугольник остроугольный')
else Writeln('Треугольник тупоугольный')
end
else Writeln('Треугольник не существует')
end.
Примеры
Введите стороны треугольника: 3.54 5.18 8.32
Треугольник тупоугольный
Введите стороны треугольника: 30 40 50
Треугольник прямоугольный