Невозможность или сложность создания реальной физической модели
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
<span>Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End<span>.
Пример:
4 1
YES</span></span>
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal('10 чисел через пробел:',10).Reverse.Println
end.
<u>Пример</u>
10 чисел через пробел: 3.6 -2.17 5 12.7 0 1e-12 82 3.18e6 -263 3.14
3.14 -263 3180000 82 1E-12 0 12.7 5 -2.17 3.6
Можно!
............................................................................