Задача 4 Урок 16

Primary tabs

Submitted by jl8qy9kd_pro on Tue, 08/17/2021 - 16:35

Forums:

Задача 4 Урок 16

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

var i, p: integer;
    s: string;
    a: array[1..8] of char;
begin
  p := 1;
  writeln('vvedi stoky');
  readln(s);
    for i := 1 to length(s) do
      if((s[i] >= '0') and (s[i] <= '9') and (p <= 8)) then
        begin
          a[p] := s[i];
          inc(p);
        end;
    for i:= low(a) to high(a) do
      writeln(a[i]);
  readln();
end.
  • Log in to post comments
  • 1516 reads
vedro-compota's picture

vedro-compota

Sat, 09/11/2021 - 12:19 

 for i:= low(a) to high(a) do
      writeln(a[i]);

-- выводить только те числа, что реально нашлись в строке. Их может оказаться и меньше 8

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

jl8qy9kd_pro

Mon, 09/13/2021 - 22:35 

var i, p: integer;
    s: string;
    a: array[1..8] of char;
begin
  p := 1;
  writeln('vvedi stoky');
  readln(s);
    for i := 1 to length(s) do
      if((s[i] >= '0') and (s[i] <= '9') and (p <= 8)) then
        begin
          a[p] := s[i];
          inc(p);
          writeln(s[i]);
        end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 09/14/2021 - 22:09

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

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