Дорогие друзья! Привожу пример нашей первой программы на работу со строками.
program Line;
var
Name1: string[20];
Name2: string[20];
Title: string[40];
Rez: string [70];
begin
Name1:='Глебова';
Name2:=' Катя';
Title:=Name1+Name2;
writeln (Title);
Name1:='Кондратьев';
Name2:='Иванов';
???
end.
Домашнее задание. Дописать программу,чтобы на экране было сообщение о том, какая фамилия идёт раньше по алфавиту.
program Line;
var
Name1: string[20];
Name2: string[20];
Title: string[40];
Rez: string [70];
begin
Name1:='Глебова';
Name2:=' Катя';
Title:=Name1+Name2;
writeln (Title);
Name1:='Кондратьев';
Name2:='Иванов';
???
end.
Домашнее задание. Дописать программу,чтобы на экране было сообщение о том, какая фамилия идёт раньше по алфавиту.
Комментариев нет:
Отправить комментарий