Урок 16. Задача №4. Решение.
Primary tabs
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".
var str : string; i, j : integer; arr : array[1..8] of char; procedure ShowArr(); begin writeln('First 8 digits in your string: '); for i := 1 to high(arr) do write(arr[i]); end; begin writeln('Enter arbitrary string: '); readln(str); for i := 1 to length(str) do if (str[i] >= '0') and (str[i] <= '9') and (j <= 8) then begin j += 1; arr[j] := str[i]; end; ShowArr(); readln(); // Удержание консоль end.// Завершение программы
- Log in to post comments
- 1068 reads