Каждую гласную букву в тексте заменить на символ "*"

@Xolop4ik · Регистрация: 30.06.2016

Author24 — интернет-сервис помощи студентам

В конце, когда надо напечатать изменений текст, печает только последнее введеное слово

Pascal

uses crt;
var kol, i:integer; x:string; T:real; const gl='АаОоИиЕеЭэЮюЫыЁёУуЯя';
begin
writeln('Введите текст ');
readln(x);
writeln('Cписок слов:');
for i:=1 to length(x) do
begin
if x[i]=' ' then writeln
else write(x[i]);
end;
kol:=0;
while pos(' ', X)>0 do
begin
i:=pos(' ', X);
delete (X,1,i);
kol:=kol+1;
end;
kol:=kol+1;
for i:=1 to length(X) do
begin
if LowCase(X[i]) in gl then
X[i]:='*';
end;
writeln;
writeln('Слов в тектсе: ', kol);
writeln('Измененный текст: ');
writeln(X);
end.

@Puporev · 12.06.2018, 19:54

Сообщение от Xolop4ik

печает только последнее введеное слово

Так Вы все первые удаляете. Задание-то какое?

@Xolop4ik · 12.06.2018, 19:58 **[ТС]**

Сообщение от Puporev

к Вы все первые удаляете. Задание-то какое?

Вот

@Cyborg Drone · 12.06.2018, 22:41

Не по теме:

Xolop4ik, фотографии текста запрещены. Вложение заблокировано. Перепечатайте задание в тему вручную.
И на будущее: темы называйте осмысленно.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.06.2018, 19:54	2
	Сообщение от Xolop4ik печает только последнее введеное слово Так Вы все первые удаляете. Задание-то какое? 0

@Cyborg Drone
	12.06.2018, 22:41 Каждую гласную букву в тексте заменить на символ "*" #4
	Не по теме: Xolop4ik, фотографии текста запрещены. Вложение заблокировано. Перепечатайте задание в тему вручную. И на будущее: темы называйте осмысленно. 0