Вводится текст ( строка, длина которой не менее 10 символов). Требуется: 1. Вывести на экран фрагмент данного текста с 5 по 8 символ. 2. Удалить из данной строки три последних символа. 3. Вывести символы, находящиеся на нечётны...
Вводится текст ( строка, длина которой не менее 10 символов). Требуется:
1. Вывести на экран фрагмент данного текста с 5 по 8 символ.
2. Удалить из данной строки три последних символа.
3. Вывести символы, находящиеся на нечётных позициях (1-й,3-й, 5-й и т.д.).
4. Подсчитать и вывести количество цифр в данной строке.
Гость
Ответ(ы) на вопрос:
Гость//я так понимаю, всё это должно быть в одном коде
var s,DEC:string;
i,k,j:integer;
begin;
DEC:='0123456789';
readln(s);
if length(s)<10 then exit;
for i:=5 to 8 do
writeln(s[i]);
for i:=1 to 3 do
delete(s,length(s),1);
writeln('3)');
for i:=1 to length(s) do
if i mod 2<>0 then writeln(s[i]);
for i:=1 to length(s) do
for j:=1 to length(DEC) do
if s[i]=DEC[j] then inc(k);
writeln('Result:',k);
end.
Не нашли ответ?
Похожие вопросы