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