Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Написать программу,которая считает длину строки,введенной с клавиатуры и вывести её без третьего символа.

Ответ оставил Гость

Var        str: string;        i, count: integer;begin        write(Your string: );        readln(str);        i := length(str);        if i > 0 then begin                count := 1;                while i > 0 do begin                        if str[i] = then                                count := count + 1;                        i := i - 1;                end;        end        else                count := 0;                delete(str,3,1);        writeln(Number of words: , count);         writeln(str);readln;end.