Var
a, n, i: integer;
r: longint;
begin
r := 1;
readln(a, n);
for i := 1 to n do
r := r * a;
write(r);
end.
ответ 36 кбайт
я тебе в комментах в прошлом вопросе скинул
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.
С++ / gcc 7.3.0
#include <iostream>
#include <algorithm>
#include <vector>
int main()
{
unsigned int N;
std::cin >> N;
std::vector<unsigned int> v(N);
for(unsigned int i = 0; i < N; i++)
std::cin >> v[i];
std::sort(v.begin(), v.end());
for(auto it : v)
{
if(it % 2 == 0)
std::cout << it << std::endl;
break;
}
return 0;
}
Http://spiders.ru/widow.mp3
<span>БГВДАЖЕ</span>