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