Program pr10;

Елена в категроии Информатика, вопрос открыт 11.03.2017 в 13:06

uses CRT;
var x,a,e:real;
begin
e:=1.6;
if a=0 then begin writeln ('Input error'); exit; end else
fun:=exp (a*ln(e))*exp(a*ln(x))+sqrt(ln(x/2+exp(a*ln(x))));
end;
begin
clrscr;
repeat
write('a=');
readln(a);
if cod<> 0 then writeln('error. input again!');
until cod=0;
repeat
write('x=');
readln(x);
if cod<> 0 then writeln ('error. input again!');
until cod=0;
write ('f(x)=');
writeln(fun(a,x):3:10);
readkey;
end.ar a,x: read; f:read;
begin
write('a');
readln(a);
write('x');
readln(x);
f:=cos(x+exp(a*ln(x)));
writeln('f=',f);
end.

Исправьте ошибки !!!