задача 4 урок 17
Primary tabs
Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".
РЕШЕНИЕ
program task_4_lesson_17; var s: string; c: array[1..8] of char; i, n: integer; begin readln(s); n := 1; while n <= 8 do for i := 1 to length(s) do begin if (s[i] >= '0') and (s[i] <= '9') then begin c[n] := s[i]; n += 1; end; end; for i := low(c) to high(c) do write(c[i], '|'); readln(); end.
Консоль
34 one 342 two 9033 three ijidu 2323 eight 88 nine ten 0001 3|4|3|4|2|9|0|3|
- Log in to post comments
- 1659 reads
vedro-compota
Sun, 10/31/2021 - 12:47
Permalink
while n <= 8 do
-- если не удалось считать 8 символов за первый проход, вложенный цикл будет перезапущен?
_____________
матфак вгу и остальная классика =)
Gurgen
Tue, 11/02/2021 - 00:34
Permalink
Убрал цикл while. Записываю
Убрал цикл while. Записываю цифры(char) сразу в массив
Консоль - цифр меньше 8 штук
vedro-compota
Wed, 11/03/2021 - 19:00
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)