Скачиваний:
283
Добавлен:
04.03.2014
Размер:
386 б
Скачать
program cifra;{ўл¤Ґ«пҐв Ё§ б«®ў ⥪бв  ўбҐ жЁдал}
uses crt;
var st:string;

Procedure c(st:string);
var i:integer;
Begin
Writeln('жЁдал, ўбваҐвЁўиЁҐбп ў ¤ ­­®© бва®ЄҐ:');
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then
write(st[i])
end;

BEGIN
clrscr;
writeln('ўўҐ¤ЁвҐ бва®Єг:');
readln(st);
c(st);
writeln;
readln;
end.
Соседние файлы в папке TOL