давно
Старший Модератор
31795
6196
06.12.2015, 17:08
общий
это ответ
Здравствуйте, Посетитель - 399097!
Смотрите код:
[code lang=pascal h=200]var
a:string;
b,c:integer;
function min(a,b:integer):integer;
begin
if a>b then min:=b
else min:=a;
end;
begin
write('Enter string:');
readln(a);
b:=pos(' ',a)-1;{длина первого слова}
delete(a,1,pos(' ',a));
c:=pos(' ',a)-1;{длина второго слова}
delete(a,1,pos(' ',a));
write('Result:',min(min(b,c),length(a))){выводим результат}
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.