@
b
f
U величина), слова якої розділені символом “пропуск”.
1. Знайти кількість слів у тексті.
2. Надрукувати окремо з нового рядка кожне слово тексту.
3. Знайти i надрукувати найдовше слово тексту.
program strings;
uses crt;
var s,t:string;
i,k:integer;
procedure kol(s:string; var k:integer);
{ процедура знаходження кiлькостi слiв у текстi ( текст мiстить хоча б одно слово }
var i,n:integer;
begin
k:=1;
n:=length(s);
for i:=1 to n do
if s[i]=’ ‘ then k:=k+1;
end;
procedure druk(s:string);
{ процедура друкування слів тексту }
var n:integer;
s1:string;
begin
n:=pos(‘ ‘,s);
while n<>0 do
begin
|
Скачати "Реферат на тему Програмування рядкових величин"