Uses crt;
var a: integer;
begin
readln(a);
a:=(a div 10 mod 10)*100+(a mod 10)*10+(a div 100);
writeln(a);
<span>end.</span>
// пишу на плюсах, думаю поймёте
int k;
for(int i=0;i<30;i++){
int x;
cin >> x;
if(x%3==0 && x%10==1)
k++:
}
cout << k;
uses crt;
Var a,x1,x2:integer;
Begin
x1:=1;
x2:=0;
readln(a);
While a<300 do
Begin
if (a mod 2<>0) then x1:=x1*a;
if (a<0) then x2:=x2+1;
readln(a);
end;
Writeln('Произведение нечётных чисел=', x1);
Writeln('Кол-во отрицательных чисел=' , x2);
readln;
end.
Это на компе надо делать
Эт училка еб*нутая ,передай ей
Uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=random(9)+1;
writeln(m[i]);
if m[i] mod 2<>0 then begin inc(k); s:=s+m[i]; end;
end;
writeln;
writeln(k);
writeln(s);
end.