По горизонтали:1. Гибкий магнитный диск.2. Устройство для вывода информации на бумажный носитель.3. Запоминающее устройство.4. Жесткий диск.5. Устройство ввода информации.6. Устройство ввода информации с бумажного носителя.7. Сверхоперативная память.По вертикали:3. Устройство обработки информации.5. устройство вывода информации.8. Вычислительная система.7. Клавишное устройство ввода информации.9. система проводов. ответы:По горизонтали:1. дискета, 2. принтер, 3. память, 4. винчестер, 5. мышь, 6. сканер, 7. кэш.По вертикали:3. процессор, 5.монитор, 8. компьютер, 7.клавиатура, 9.ю шина.
// 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.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
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.
Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш