profile
Опубликовано 5 лет назад по предмету Информатика от elenka1973nasti

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

  1. Ответ
    Ответ дан Gleb1Kosyrev
    //я так понимаю, всё это должно быть в одном коде
    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.
    1. Ответ
      Ответ дан elenka1973nasti
      Спасибо огромное)
Самые новые вопросы