Pascal.Задана последовательность символов, за которой следует точка (в саму последовательность точка не входит).Напечатать текст, удалив из него все цифры.
Ответ
Автор -
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.
ты делал тестовое решение? у меня в ответ показывает только один символ
а ты n случайно 1 не поставли
программа после каждого ввода выводит сразу ответ)) то есть ввел :
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.