Можете написать на qbasic и составить блок-схему к нему? ввести массив из mxn элементов. сформировать три новых массива, повернув исходный на 90 градусов против часовой стрелки. надо, чтобы массив вбивался вручную.
CLS DIM A(100, 100) INPUT "N="; N INPUT "M="; M FOR i = 1 TO N FOR j = 1 TO M PRINT STR$(i); PRINT STR$(j); INPUT ; A(i, j) NEXT j PRINT NEXT i PRINT "" FOR i = 1 TO N FOR j = 1 TO M PRINT A(i, j), NEXT j PRINT NEXT i PRINT "" FOR j = M TO 1 STEP -1 FOR i = 1 TO N PRINT A(i, j), NEXT i PRINT NEXT j
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
DIM A(100, 100)
INPUT "N="; N
INPUT "M="; M
FOR i = 1 TO N
FOR j = 1 TO M
PRINT STR$(i);
PRINT STR$(j);
INPUT ; A(i, j)
NEXT j
PRINT
NEXT i
PRINT ""
FOR i = 1 TO N
FOR j = 1 TO M
PRINT A(i, j),
NEXT j
PRINT
NEXT i
PRINT ""
FOR j = M TO 1 STEP -1
FOR i = 1 TO N
PRINT A(i, j),
NEXT i
PRINT
NEXT j