Провести сортировку записей, расположив фамилии согласно алфавиту - Pascal ABC
Формулировка задачи:
Помогите с решением плиз
Справочник учреждений и организаций: название, адрес (улица, № дома), № телефона, район местонахождения. Район местонахождения определить программным путем по второй цифре в номере телефона: 1 — Дашково—Песочня, 2 — Горроща, 3 — Приокский и Канищево, 5 — Московское шоссе, 6,7 — Центр. Провести сортировку записей, расположив фамилии согласно алфавиту.
Решение задачи: «Провести сортировку записей, расположив фамилии согласно алфавиту»
textual
Листинг программы
uses crt; var nom:integer; x:string; begin Write('Номер телефона: ');readln(nom); str(nom,x); If x[2]='1' then writeln('Дашково—Песочня'); If x[2]='2' then writeln('Горроща'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д