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

Question

Информатика

Вероня

4 июля, 06:08

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

+1

Ответы (1)

Знаете ответ на вопрос?

Даниил · Answer 1

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) ;