Задача 4 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
type ar = array[1..8] of char; var s: string; a: ar; function f1(s1:string): ar; var i1, t1: integer; a1: ar; begin t1 := 0; for i1 := 1 to length(s) do if (s1[i1] >= '0') and (s1[i1] <= '9') and (t1 <=8) then begin inc(t1); a1[t1] := s1[i1]; end; result := a1; end; procedure p1(a1: ar); var i1: integer; begin for i1 := low(a1) to high(a1) do write(a1[i1], ' '); end; begin writeln('Введите строку'); readln(s); a := f1(s); p1(a); readln(); end.
КОНСОЛЬ
Введите строку rthr356jkb56kjbkjb56kjlk456 3 5 6 5 6 5 6 4
- Log in to post comments
- 561 reads