Задача 4 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".
program u17z4; type Arr = array[1..8] of char; var s: string; i,n: integer; a: Arr; begin writeln('vvedite stroku:'); readln(s); n:=1; for i:=1 to length(s) do begin if (s[i]>='0')and(s[i]<='9') and (n<=8) then begin a[n]:=s[i]; n:=n+1; end; if n>8 then break; end; for i:=1 to n do //выводим массив write(a[i],''); readln; end.
- Log in to post comments
- 364 reads