Провести сортировку записей, расположив фамилии согласно алфавиту - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д