Консультация № 188319
02.12.2015, 16:49
0.00 руб.
0 1 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Напишите программу, вычисляющую длину самого короткого слова в предложении из трех слов, разделенных пробелами.(BPascal)

Обсуждение

давно
Старший Модератор
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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа