Задача 2 урок 16
Primary tabs
Задача 2 урок 16
Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.
var s: string; i: integer; begin writeln('vvedite proizvolnuy stroku:'); readln(s); for i:=1 to length(s) do begin if length(s) < 5 then begin writeln('Error'); break; end else if (i mod 5 = 0) then write(s[i],' '); end; readln(); end.
- Log in to post comments
- 559 reads