Ввести последовательность символов предшествующих точке и выяснить встречаются ли среди них буквы, входящие в слово "МИР"

@Denio · Регистрация: 27.03.2009

Создать модуль и вызвать его в программе. Вот условие задачи:Ввести последовательность символов предшествующих точке и выяснить встречаются ли среди них буквы, входящие в слово "МИР". Заранее спасибо!!

@STRATEG · 28.03.2010, 18:20

Можно пример текста хотябы

символов предшествующих точке

@Puporev · 29.03.2010, 09:46

Текст модуля

Pascal

unit unit1;
interface
procedure Vvod;
implementation
procedure Vvod;
var c:char;
    k:integer;
begin
writeln('Введите символы, окончание ввода точка:');
k:=0;
repeat
read(c);
if c in ['М','И','Р'] then k:=k+1;
until c='.';
readln;
writeln('Количество символов до первой точки, входящих в слово МИР=',k);
readln
end;
end.

Текст программы

Pascal

uses crt,unit1;
begin
clrscr;
Vvod;
end.

@Denio 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 23
		1
	Ввести последовательность символов предшествующих точке и выяснить встречаются ли среди них буквы, входящие в слово "МИР" 28.03.2010, 17:42. Показов 1907. Ответов 2 Метки нет (Все метки) Создать модуль и вызвать его в программе. Вот условие задачи:Ввести последовательность символов предшествующих точке и выяснить встречаются ли среди них буквы, входящие в слово "МИР". Заранее спасибо!! 0

@STRATEG 1173 / 479 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	28.03.2010, 18:20	2
	Можно пример текста хотябы символов предшествующих точке 0

Опции темы

Ввести последовательность символов предшествующих точке и выяснить встречаются ли среди них буквы, входящие в слово "МИР"

Решение