Регистрация
софика4
07.05.2020 21:18
Информатика
Есть ответ 👍

Известна масса 12 предметов определить массу самого большого. паскаль

181
426
Посмотреть ответы 1

Ответы на вопрос:

chardonayyyyyoyl8au
chardonayyyyyoyl8au
4,4(91 оценок)
Pascalabc.net программа сработает некорректно если слова будут разделены                           несколькими       пробелами или строка будет заканчиваться пробелом const      c = ' ';   var    s : string;     k,p : integer;       begin  writeln ('введите строку');   readln (s);   k : = -1;   p : = 1;   if (s < > '') and (s < > ' ') then    begin    while p < > 0 do      begin        k : = k +1;         p : = posex (c,s,p+1);         end;     writeln (k+1,' word')      end    else    writeln ('error string');   end.

Популярно: Информатика