Var s:string;
i,ser,p2,c:integer;
begin
readln(s);
i:=length(s);
ser:= round(i/2);
p2:=ser+1;
for c:=p2 to i do
write (s[c]);
for c:=1 to ser do
write (s[c])
end.
Program abc;
var: a,b,c,V:integer
begin
readln(a,b,c);
V:=a*b*c;
writeln(V);
<span>end.</span>
Домены
Домен 1-го(2го,3-го...) уровня
Напиши про природу.
Вокруг нас есть природа.Она бывает живая и неживая и т.д.
Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.