Дана строка символов содержащая символы вывести все цифры строки. ПАСКАЛЬ
Дана строка символов содержащая символы вывести все цифры строки. ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
ГостьСм. файл во вложении
ГостьVAR
A:STRING;
n,i:integer;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]>='0')and(a[i]<='9')then
write(a[i]);
end.
Не нашли ответ?
Похожие вопросы