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