2: (как я понял, надо ввести X, не бесконечность же выводить) var y, x: real; begin readln(x); if (x <> 10) then y := power(x + 5, 2) / (10 - x) else writeln('Error!'); writeln(y); end.
3: var x, x1, x2, x3, x4: integer; begin readln(x); x1 := x div 1000; x2 := x mod 1000 div 100; x3 := x mod 100 div 10; x4 := x mod 10; writeln(x4 * 1000 + x3 * 100 + x2 * 10 + x1); //можно было без суммы, но раз уж надо вывести именно число...:) end.
yasadc
1)uses crt; begin if sqrt(1+sqrt(1+sqrt(1+sqrt(1))))<(1+sqrt(5))/2 then writeln('верно') else writeln('неверно'); end. 2)uses crt; var x:integer; y:real; begin readln(x); if x<>10 then begin y:=(sqr(x+5))/(10-x); writeln(y) end else writeln('x не входит в область определения'); end. 3)uses crt; var n,e,d,s,t:integer; begin readln(n); e:=n mod 10; d:=(n div 10) mod 10; s:=(n div 100) mod 10; t:=n div 1000; writeln(e,d,s,t); end.
Answers & Comments
1:
begin
writeln(sqrt(1 + sqrt(1 + sqrt(1 + sqrt(1)))) < (1 + sqrt(5)) / 2);
end.
2: (как я понял, надо ввести X, не бесконечность же выводить)
var
y, x: real;
begin
readln(x);
if (x <> 10) then
y := power(x + 5, 2) / (10 - x)
else
writeln('Error!');
writeln(y);
end.
3:
var
x, x1, x2, x3, x4: integer;
begin
readln(x);
x1 := x div 1000;
x2 := x mod 1000 div 100;
x3 := x mod 100 div 10;
x4 := x mod 10;
writeln(x4 * 1000 + x3 * 100 + x2 * 10 + x1); //можно было без суммы, но раз уж надо вывести именно число...:)
end.
begin
if sqrt(1+sqrt(1+sqrt(1+sqrt(1))))<(1+sqrt(5))/2 then writeln('верно') else writeln('неверно');
end.
2)uses crt;
var x:integer;
y:real;
begin
readln(x);
if x<>10 then begin y:=(sqr(x+5))/(10-x); writeln(y)
end else writeln('x не входит в область определения');
end.
3)uses crt;
var n,e,d,s,t:integer;
begin
readln(n);
e:=n mod 10;
d:=(n div 10) mod 10;
s:=(n div 100) mod 10;
t:=n div 1000;
writeln(e,d,s,t);
end.