Подсчитать количество чисел, вывести все слова состоящие только из латинских букв, удалить каждое второе слово

@SharkZero · Регистрация: 31.10.2016

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

С клавиатуры вводится строка. Составить программу, которая подсчитывает количество цифр в тексте (не цифры, а именно чисел); выводит на экран все слова, состоящие только из латинских букв, удаляет каждое второе слово.

magirus · 15.12.2016, 20:46

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

Составить программу, которая подсчитывает количество цифр в тексте (не цифры, а именно чисел)

вы уж определитесь...

@SharkZero · 15.12.2016, 20:54 **[ТС]**

ой. Чисел нужно

Добавлено через 4 минуты
чисел нужно

@Zheka322 · 15.12.2016, 21:11

var
s:string;
i:longint;
begin
write('Your string: ');
readln(s);
for i:=length(s) downto 1 do
begin
if s[i]=' ' then delete(S,i,1);
if (s[i]>='1')and(s[i]<='9') then delete(s,i,1);

end;
writeln('Number of words: ',length(s));
writeln('All words: ',s);
end.

@SharkZero 0 / 0 / 0 Регистрация: 31.10.2016 Сообщений: 6
		1
	Подсчитать количество чисел, вывести все слова состоящие только из латинских букв, удалить каждое второе слово 15.12.2016, 20:42. Показов 891. Ответов 3 Метки c, indexof, string (Все метки) С клавиатуры вводится строка. Составить программу, которая подсчитывает количество цифр в тексте (не цифры, а именно чисел); выводит на экран все слова, состоящие только из латинских букв, удаляет каждое второе слово. 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	15.12.2016, 20:46	2
	Сообщение от SharkZero Составить программу, которая подсчитывает количество цифр в тексте (не цифры, а именно чисел) вы уж определитесь... 0

@SharkZero 0 / 0 / 0 Регистрация: 31.10.2016 Сообщений: 6
	15.12.2016, 20:54 [ТС]	3
	ой. Чисел нужно Добавлено через 4 минуты чисел нужно 0

@Zheka322 0 / 0 / 1 Регистрация: 17.09.2016 Сообщений: 48
	15.12.2016, 21:11	4
	var s:string; i:longint; begin write('Your string: '); readln(s); for i:=length(s) downto 1 do begin if s[i]=' ' then delete(S,i,1); if (s[i]>='1')and(s[i]<='9') then delete(s,i,1); end; writeln('Number of words: ',length(s)); writeln('All words: ',s); end. 0