Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Как ввести строковый тип данных (string) через пробел в паскале

Ответ оставил Гость

Readln(s);
s1:=copy(s,1,pos( ,s)-1);
delete(s,1,pos( ,s));
s2:=copy(s,1,pos( ,s)-1);
delete(s,1,pos( ,s));
s3:=s;
if(s1>s2)and(s1>s3)then writeln(s1)
   else if(s2>s1)and(s2>s3)then writeln(s2)
      else writeln(s3);