дана строка символов содержащая символы вывести все цифры строки. ПАСКАЛЬ
5-9 класс
|
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.
Другие вопросы из категории
1.Определите значение переменной
f после выполнения фрагмента алгоритма:
f:=1
нц для i от 1 до 5
f:=f*i
кц
2.
электронной таблицы или в среде системы управления базами данных!КАК МНЕ ЭТОГО ВЫПОЛНИТЬ???
люди помогите срочно надо
Читайте также
алфавитеесли сообщение содержит 2000 байт ? 2 объем сообщения содержащего 2048 символов составляет 1\512 часть мбайта какова мощность алфавита с помощью которого записано сообщение ?
Для записи текста использовался 256-ти символьный алфавит.Каждая страница содержит 30 строк , по 70 символов.Какой объём информации содержат пять страниц теста?
Заранее спасибо.:)
64 символа, 16 строк по 64 символа)?