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

282

287

Посмотреть ответы 2

Ответы на вопрос:

Annetaolk963

Информатика

4,5(3 оценок)

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.