Файлы

@crab2000 · Регистрация: 11.12.2009

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

type stroka=array [0..100] of char; textfile=file of char; Описать процедуру cifer(s,t),которая записывает в текст t все цифры из строки s.

Vovan-VE · 19.02.2010, 18:33

Pascal

procedure cifer(s:stroka; var f:textfile);
var i:Intreger;
begin
    for i:=0 to 100 do begin
        if (s[i] >= '0') and (s[i] <= '9') then write(f, s[i]);
    end;
end;

@crab2000 1 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 29
		1
	Файлы 19.02.2010, 12:44. Показов 943. Ответов 1 Метки нет (Все метки) type stroka=array [0..100] of char; textfile=file of char; Описать процедуру cifer(s,t),которая записывает в текст t все цифры из строки s. 0

	19.02.2010, 18:33

Файлы

Решение