Задание 1)// PascalABC.NET 3.1, сборка 1219 от 16.04.2016begin var fam:=ReadlnString('Фамилия:'); var nam:=ReadlnString('имя:'); var otch:=ReadlnString('отчество:'); var fio:=fam+' '+nam+' '+otch; Writeln(fio,', длина текста- ',fio.Length)end.
Тестовое решениеФамилия: Ивановимя: Сергейотчество: ПетровичИванов Сергей Петрович, длина текста- 22
Задание 3)// PascalABC.NET 3.1, сборка 1219 от 16.04.2016begin var w:='ИНТЕГРАЛ'; Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]); Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]); Writeln(w[3]+w[1]+w[5:7]); Writeln(w[7]+w[5:3:-1]+w[2:4]); Writeln(w[6:]+w[8]+w[1]); Writeln(w[1]+w[5:8]); Writeln(w[2::-1]+w[3]+w[6:8]+w[3])end.
Решение:ГАНТЕЛИРЕНТГЕНТИГРАГЕНТРАЛЛИИГРАНИТРАТ