Решение задачи №4 из главы 16

Решение задачи №4 из главы 16

Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".

Вывод консоли:

vvedite proizvolnuy stroku:
qwer123
1 2 3

Решение:

type  // секция объявления типов
  myArr = array[1..8] of char; //  массив из 8 элементов символьного типа

var
  s: myArr; // объявляем переменную типа  myArr
  i,n:integer;

begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
    for i:=1 to Length(s) do
    begin // обходим строку в цикле
      if (s[i]>='0')and(s[i]<='9') then
            write(s[i], ' ');
    end;
      // выводим очередной символ строки
    readln();

end.
        
vedro-compota's picture

  1. добавить распечатку консоли именно для 8 цифра, напр для значения
    g4g45yt45y34g34t24
  2. массив должен быть заполнен цифрами "подряд", без пропусков, в конце программы обойдите его и распечатайте значения.

_____________
матфак вгу и остальная классика =)

gani84's picture

vvedite proizvolnuy stroku:
g4g45yt45y34g34t24
Vivodim 8 chisel:
44545343
type  // секция объявления типов
  myArr = array[1..8] of char; //  массив из 8 элементов символьного типа
var
  s: myArr; // объявляем переменную типа  myArr
  i,j:integer;
  str : string;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(str);
    for i:=1 to Length(str) do
     begin // обходим строку в цикле
      if (str[i]>='0') and (str[i]<='9') and (j <= 8) then
        begin
        j+=1;
        s[j]:=str[i];
        end;
     end;
    writeln('Vivodim 8 chisel: ');
  for i := 1 to high(s) do
    write(s[i]);
    readln();
end.
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)