Урок 16 (Решенная задача номер 4)

Primary tabs

Romakip's picture
Submitted by Romakip on Fri, 10/09/2020 - 12:31

Forums:

Урок 16 (Решенная задача номер 4)

4)Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.

Подсказка: массив должен быть "of char". 

var s : string;
    i, c: integer;
    h : array[1..8] of char;
begin
 c := 0;
 writeln('vvedite stroky');
 readln(s);
 for i := 1 to length(s) do
  if (s[i] >= '0') and (s[i] <= '9') and (c <= 8) then
  begin
   Inc(c);
   h[c] := s[i];
  end;
 for i := 1 to 8 do
  writeln(h[i]);
end.
  • Log in to post comments
  • 1239 reads
vedro-compota's picture

vedro-compota

Sat, 10/10/2020 - 20:25

Добавить оптимизацию с break

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

Romakip's picture

Romakip

Mon, 10/12/2020 - 15:39 

var s : string;
    i, c: integer;
    h : array[1..8] of char;
begin
 c := 0;
 writeln('vvedite stroky');
 readln(s);
 for i := 1 to length(s) do
  if (s[i] >= '0') and (s[i] <= '9') and (c <= 8) then
  begin
   Inc(c);
   h[c] := s[i];
  end
  else if (c = 8) then break;
 for i := 1 to 8 do
  writeln(h[i]);
end.