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