Stormer2599
1) Var x,y:integer begin write('введите x'); readln(x); y=:(формула) ; write(Y); readln; end. 2) Program primer Var a,b,s,m,d: integer; Begin ; ReadLn( a,b); s=a+b; m:=a*b; d:=a/b; WriteLn(s); WriteLn(m); WriteLn(d) End 3) var x,y1,y2:real; begin read(x); y1:= exp(ln(x)*10); y2:= exp(ln(x)*15);writeln(y1); writeln(y2); end.
Answers & Comments
Var
x,y:integer
begin
write('введите x');
readln(x);
y=:(формула) ;
write(Y);
readln;
end.
2)
Program primer
Var a,b,s,m,d:
integer;
Begin ;
ReadLn( a,b);
s=a+b;
m:=a*b;
d:=a/b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End
3)
var x,y1,y2:real;
begin
read(x);
y1:= exp(ln(x)*10);
y2:= exp(ln(x)*15);writeln(y1);
writeln(y2);
end.
Вроде так