Есть код на паскале, который считает выражение и запрещает ввод букв. нужно сделать проверку знаменателя на 0 обоих выражений, и вывести текст в случае нуля pascalabc program aip; var flta,fltb,fltb2: real; code: integer; function ip(a: real): real; var a1: string; begin write('введите значение а= '); // repeat readln(a1); val(a1,a,code); if (code< > 0) then writeln('no'); until (a> 0); // ip: =a; end; begin flta: =ip(flta); fltb: = ((1-2*sin(flta)*sin(flta))/(1+sin(2*; fltb2: = ((1-tan(flta))/(1+tan(; writeln('первая формула ',fltb: 5: 5); writeln('вторая формула ',fltb2: 5: 5); end.

PascalABC

program aip;
var 
fltA,fltB,fltB2:real;
code:integer;
function ip(A:real):real;
var A1:string;
begin
write('Введите значение А= ');

//
repeat 
readln(A1);
val(A1,A,code);
if (code<>0) then writeln('no');
until (A>0);
//
ip:=A;
end; 
begin 
fltA:=ip(fltA);
if abs(1+sin(2*fltA)) < 0.000001 then begin
   writeln('Delenie na nol v pervoy formule');
end else begin
   fltB:= ((1-2*sin(fltA)*sin(fltA))/(1+sin(2*fltA)));
   writeln('Первая формула ',fltB:5:5);
end;
if abs(1+tan(fltA)) < 0.000001 then begin
   writeln('Delenie na nol vo vtoroy formulte');
end else begin
   fltB2:= ((1-tan(fltA))/(1+tan(fltA)));
   writeln('Вторая формула ',fltB2:5:5); 
end;
end.