Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / TOL / CIF
.PAS 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.
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.