Решение задачи №4 из главы 16
Primary tabs
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".
Вывод консоли:
vvedite proizvolnuy stroku: qwer123 1 2 3
Решение:
type // секция объявления типов myArr = array[1..8] of char; // массив из 8 элементов символьного типа var s: myArr; // объявляем переменную типа myArr i,n:integer; begin writeln('vvedite proizvolnuy stroku:'); readln(s); for i:=1 to Length(s) do begin // обходим строку в цикле if (s[i]>='0')and(s[i]<='9') then write(s[i], ' '); end; // выводим очередной символ строки readln(); end.
- Log in to post comments
- 1677 reads
vedro-compota
Sun, 11/22/2020 - 16:53
Permalink
добавить распечатку консоли
_____________
матфак вгу и остальная классика =)
gani84
Sat, 12/05/2020 - 17:06
Permalink
Исправил
vedro-compota
Sun, 12/06/2020 - 16:37
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)