Урок 17 Задача 02
Primary tabs
Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.
Решение:
program u17z02; var s:string; i:integer; begin writeln('vvedite stroku:'); readln(s); i:=0; while i < length(s) do begin i:=i+5; write(s[i],', '); end; readln(); end.
Консоль:
vvedite stroku: privet mir e, r,
- Log in to post comments
- 437 reads