дан текст напечатать все имеющиеся в нем цифры

[Роял]

дан текст напечатать все имеющиеся в нем цифры

[min@y™]

ты б сразу вывалил весь список заданий и назначил бы тендер. а то по одной – только интернеты засорять.

з.ы. Я твоим никнэймом году в 92-м здорово траванулся. палёный, оказался, гад.

[Stilet]

дан текст

Сможешь показать код ввода текста?

[Роял]

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

Сможешь показать код ввода текста?

там любой ввод текста можно

[Вадим Мошев]

Сообщение от min@y™

ты б сразу вывалил весь список заданий и назначил бы тендер. а то по одной – только интернеты засорять.

з.ы. Я твоим никнэймом году в 92-м здорово траванулся. палёный, оказался, гад.

Судя по внешнему виду бутылки, это растворитель...

[Аватар]

То спирт такой был не хилый, развести 50 на 50, лимончика, в холодильник и дать постоять. Водка и рядом не стояла

[Вадим Мошев]

А по теме я скажу:

for i:=1 to length(txt) do begin
	if txt[i] in ['0'..'9'] do begin
		write(txt[i], ', ');
	end;
end;

[Роял]

Сообщение от Вадим Мошев

А по теме я скажу:

for i:=1 to length(txt) do begin
	if txt[i] in ['0'..'9'] do begin
		write(txt[i], ', ');
	end;
end;

а как будет полная программа?
напишите пожалуйста завтра здовать а то

[Вадим Мошев]

А то что?
Ну я напишу ладно. А дальше что? Зададут следующую задачу. С ней что делать будете? Снова на форум придёте?

var
	txt: string;
	i: byte;
	
begin
writeLn('а ну-ка быстро введите строку!');
read(txt);
writeLn;

for i:=1 to length(txt) do begin
	if txt[i] in ['0'..'9'] do begin
		write(txt[i], ', ');
	end;
end;

end.

[Stilet]

завтра здовать а то

А то в АТО )))