Задача 2 Урок 17
Primary tabs
Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.
var s: string; i, n: integer; begin write('enter an arbitrary string '); readln(s); writeln(); n := length(s); if n < 5 then writeln('ERROR') else for i := 1 to n do if i mod 5 = 0 then write(s[i], ' '); readln(); end.
Вывод консоли:
enter an arbitrary string qwdsw321df2wreff The fifth character: w, The fifth character: f, The fifth character: f,
- Log in to post comments
- 219 reads