Var
(x,y,z, n)
begin
read (x, y, z)
n:= (x+y+z) / 3
writeln (n)
end.
#include <iostream>
using namespace std;
int main() {
int x = 8, y = 15;
x=x+y;
y=x-y;
x=x-y;
cout << "x = " << x << " y = " << y << endl;
system("pause");
return 0;
}
Const e=0.001;
var x,a,s:real; n,st,f:integer;
begin
write('x = ');
readln(x);
st:=1; f:=1; a:=x; s:=x; n:=0;
while abs(a)>e do
begin
n:=n+1;
st:=st*2;
f:=f*n;
a:=x*st/f;
s:=s+a;
end;
writeln('s = ',s:5:3);
end.
Пример:
<span>x = 1.5
s = 11.083</span>
Var a, b : real;
begin
readln(a);
readln(b);
if a>b then writeLn(a,b)
else writeln(b,a);
readln;
end.
Попробуй так