Question

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

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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