// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin 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.2016 begin 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.
Решение: ГАНТЕЛИ РЕНТГЕН ТИГР АГЕНТ РАЛЛИ ИГРА НИТРАТ
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
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.2016
begin
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.
Решение:
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ
105 120 125 130 135 140 145 150 160 165 170 175 180 185 190 195 205 210 215 230 235 240 245 250 260 265 270 275 280 285 290 295 305 310 315 320 325 340 345 350 360 365 370 375 380 385 390 395 405 410 415 420 425 430 435 450 460 465 470 475 480 485 490 495 510 520 530 540 560 570 580 590 605 610 615 620 625 630 635 640 450 650 670 675 680 685 690 695 705 710 715 720 725 730 735 740 745 750 760 765 780 785 790 795 805 810 815 820 825 830 835 840 845 850 860 865 870 875 890 895 905 910 915 920 925 930 935 940 945 950 960 965 970 975 980 985 990 995 вот все!