Pascal.Задана последовательность символов, за которой следует точка (в саму...

Question

Pascal.Задана последовательность символов, за которой следует точка (в саму последовательность точка не входит).Напечатать текст, удалив из него все цифры.

Comments

а что программа вывести должна? мы вводим числа пока число не будет равно ".", да? потом что?

---

вывести точку? вот прога тогда

---

программа должна вывести написанный текст удалив из него все цифры

---

а ввод заканчивается на точке?

---

в задании такого не сказано, все условия вверху

---

сколько символов всего?

---

n?

---

да

Answer 1

Var  i,n : longint;  c   : array [1..100] of char;
begin 
  readln(n);
  for i:=1 to n do readln(c[i]);
  for i:=1 to n do
    if (c[i]<>'1')  and
       (c[i]<>'2') and
       (c[i]<>'3') and
       (c[i]<>'4') and
       (c[i]<>'5') and
       (c[i]<>'6') and
       (c[i]<>'7') and
       (c[i]<>'8') and
       (c[i]<>'9') and
       (c[i]<>'0')
     then writeln(c[i]);
end.

Comments

А можно как-то сделать чтоб вводить символы в одну строку и программа уже там сама выполняла свои задачи?

---

ок

---

var
c : char;
n,i,a : longint;
_ : integer;
begin
readln(n);
i:=1;
while(i<=n) do<br> begin
readln(c);
val(c,a,_);
if a=0
then writeln(c);
inc(i);
end;
end.

---

ты делал тестовое решение? у меня в ответ показывает только один символ

---

а ты n случайно 1 не поставли

---

программа после каждого ввода выводит сразу ответ)) то есть ввел :

---

3 b; выведет b 2; c выведет с и