Вводится текст ( строка, длина которой не менее 10 символов). Требуется: 1. Вывести **...

Question

Вводится текст ( строка, длина которой не менее 10 символов). Требуется:
1. Вывести на экран фрагмент данного текста с 5 по 8 символ.
2. Удалить из данной строки три последних символа.
3. Вывести символы, находящиеся на нечётных позициях (1-й,3-й, 5-й и т.д.).
4. Подсчитать и вывести количество цифр в данной строке.

Comments

среда разработки0

---

ау?)) какая среда разработки?)))

---

короче на чём пишем))

---

аа)) Pascal ABC

Answer 1

//я так понимаю, всё это должно быть в одном коде
var s,DEC:string;
i,k,j:integer;
begin;
DEC:='0123456789';
readln(s);
if length(s)<10 then exit;<br>
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.

Comments

Спасибо огромное)