Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
1) x>=0 и x<=2 и y>= 0 и y<=1
<span>2) L >=1 и L<=2 где L = Корень(x*x + y*y) </span>
K=8 s=12
k=9 s=24
k=10 s=36
k=11 s=48
k=12 s=60
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,d,c:real;
var k:integer;
var s:=0.0;
loop ReadInteger do begin
Read(k,a,b,c,d);
if k=1 then s+=Abs(a-c)*Abs(b-d)
else s+=pi*c*d
end;
Writeln(s)
end.
<u>Пример</u>
3
1 40 100 150 200
2 200 200 60 40
1 150 180 250 300
30539.8223686155