Вывести на экран слова, содержащие три буквы, и подсчитать их количество

@elli-il · Регистрация: 19.04.2011

Здравствуйте!!!
Помогите пожалуйста решить задачи!((

2)дана строка, состоящая из слов,разделенных пробелами,вывести на экран,слова содержащие три буквы и подсчитать их количество.
Со стоками работать , как с единым объектом. Т.е с использованием строковых процедур и функций.
(delete,insert,str,val,copy,pos,...)

@Russel1233 · 08.11.2011, 20:22

Pascal

Program stroki2;
Var s:string[255] k,n:integer;
Begin
Readln(s);
For n:=1 to length(s) do 
   Begin
   If (s[n]=' ') then k:=k+1;
End;
Writeln(k);
End.

Прога для вычисления колва слов в строке!

@КонецСвета · 08.11.2011, 20:44

Вторая задачка, другой вариант

Pascal

uses crt;
var s:string;
    k, i: integer;
begin
     write ('s=');
     readln (s);
     s:=' '+s+' ';
     writeln ('Слова, состоящие из 3х букв');
     for i:=1 to length(s)-4 do
         if (s[i]=' ') and (s[i+1]<>' ') and (s[i+2]<>' ') and (s[i+3]<>' ') and (s[i+4]=' ')
            then
                begin
                     writeln (s[i+1],s[i+2],s[i+3]);
                     inc(k);
                end;
     writeln ('Количество слов из 3х букв = ',k);
end.

@elli-il 1 / 1 / 2 Регистрация: 19.04.2011 Сообщений: 50
		1
	Вывести на экран слова, содержащие три буквы, и подсчитать их количество 08.11.2011, 14:31. Показов 1487. Ответов 2 Метки нет (Все метки) Здравствуйте!!! Помогите пожалуйста решить задачи!(( 2)дана строка, состоящая из слов,разделенных пробелами,вывести на экран,слова содержащие три буквы и подсчитать их количество. Со стоками работать , как с единым объектом. Т.е с использованием строковых процедур и функций. (delete,insert,str,val,copy,pos,...) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вывести на экран слова, содержащие три буквы, и подсчитать их количество

Решение