Var a,b,c,d:integer;
begin
readln(a);
c:=a div 100 mod 10;
d:=a div 10 mod 10;
b:=(a div 1000)*1000+d*100+c*10+(a mod 10);
writeln(b);
end.
---
короткий вариант:
var a,b:integer;
begin
readln(a);
b:=
(a div 1000)*1000+(a div 10 mod 10)*100+(a div 100 mod 10)*10+(a mod 10);
writeln(b);
end.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double x,y,A,a,b;
cin>>a>>b>>x;
y=cos(x*x*x)*cos(x*x*x)-x/sqrt(a*a+b*b);
A=abs(pow(x,y/x)-pow(y/x,1/3));
cout<<"y="<<y<<"\nA="<<A;
return 0;
}
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(20,-10,19);
a.Println(','); // 1
var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
Writeln('Количество положительных элементов ',
a.Where(x->x>0).Count); // 3
for var i:=0 to 19 do
if a[i]<0 then a[i]:=0;
Writeln('Массив А после замены отрицательных'); a.Println(','); //4
Writeln('Сумма положительных элементов ',
a.Where(x->x>0).Sum) // 5
end.
<u><em>Тестовое решение:</em></u>
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112