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