Проверить, есть ли цифры в строке - Pascal ABC

Формулировка задачи:

Помогите пожалуиста с выводом.Если цифр нет в строке, программа должна вывести на экран слово «Нет», а если есть – слово «Да» и в следующей строчке искомое число. Например, если исходная последовательность была такая: Day 10, mice 8: "Year" 7 is a mistake 91. то результат должен быть следующий: Да 987110 где поставить вывод «Да» или же вывод «Нет»
var mas:array['0'..'9'] of integer;
ch,i:char;
len,j,k:integer;
begin
read(ch);
while ch<>'.' do
begin
        if ch in ['0'..'9'] then
        begin
            inc(mas[ch]);
          
        end; 
    read(ch);    
end;
k:=0;
for i:='9' downto '0' do
    if mas[i]<>0 then inc(k);
if not((k=1) and (mas['0']<>0)) then 
    for i:='9' downto '0' do
        begin
            for j:=1 to mas[i] do
            write(i);
        end
    else write(0)
end.

Код к задаче: «Проверить, есть ли цифры в строке - Pascal ABC»

textual
program Lab;
 
var
  s:  string;
  mas: array['0'..'9'] of integer;
  i:  integer;
  ch: char;
  Res: boolean;
begin
  readln(s);
  for ch := '0' to '9' do
    mas[ch] := 0;
  Res := False;
  for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then
    begin
      Inc(mas[s[i]]);
      Res := True;
    end;
  if Res then
    writeln('Да')
  else
    writeln('Нет');
  for ch := '9' downto '0' do
    for i := 1 to mas[ch] do
      Write(ch);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.750 из 5


СДЕЛАЙТЕ РЕПОСТ