Урок 16(Решенная задача номер 2)
Primary tabs
Урок 16(Решенная задача номер 2)
2)Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.
var s: string; i, c : integer; begin writeln('vvedite stroky'); readln(s); if (length(s) >= 5) then begin for i:= 1 to length(s) do if (i mod 5 = 0) then writeln(s[i]); end else writeln('osibka'); end.
.
- Log in to post comments
- 1384 reads
vedro-compota
Sat, 10/10/2020 - 20:27
Permalink
избавится от условия в каждом
избавится от условия в каждом витке
_____________
матфак вгу и остальная классика =)
Romakip
Mon, 10/12/2020 - 15:42
Permalink
var s: string;