Напечатайте ряд цифр и букв, и удалите цифры

@Cardinal · Регистрация: 06.10.2011

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

плиз завтра уже нужно сдавать

@Puporev · 11.10.2011, 22:18

Pascal

uses crt;
var s:string;
    i:byte;
begin
writeln('Введите строку из цифр и букв:');
read(s);
for i:=length(s) downto 1 do
if s[i] in ['0'..'9'] then delete(s,i,1);
write(s);
end.

@Cardinal 0 / 0 / 0 Регистрация: 06.10.2011 Сообщений: 19
		1
	Напечатайте ряд цифр и букв, и удалите цифры 11.10.2011, 18:28. Показов 1129. Ответов 1 Метки нет (Все метки) плиз завтра уже нужно сдавать 0

	11.10.2011, 22:18

Напечатайте ряд цифр и букв, и удалите цифры

Решение