Блок-схема - в прилагаемом файле.
Программа:
#include <stdio.h>
int main()
{
int s;
for (int i=10; i<=99; i++){
s = i / 10 + i % 10;
if (s*s*s == i*i) printf("%d ",i);
}
return 0;
}
Результат:
27
Var
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.
N=33+33+26+26+15+10=143 101*2=202 байтов 202*8=1616битов