Question

ввести две фамилии.определить какая фамилия имеет большую длину.результат вывести в виде: Фамилия "Иваненко" имеет больше символов чем "Петров"
Строго в PaskalABC
*одноклам, увидевшим это привет *​

Answer 1

Ответ:

Объяснение:

Var p: string[8];

e: string;

begin

readln (p) ;

readln (e) ;

if p>e then

writeln ('фамилия ', p, 'имеет больше символов чем ',е)

else writeln ('фамилия ', e имеет больше символов чем ',p) ;

End.