Дано предложение, определить количество слов в нём и определить первую букву в предложении. pascal. я все сделал нужно ввести первую букву пред. program string_6; uses crt; var tec : string; l,i,n : longint; begin clrscr; write('введите текст: '); readln(tec); l: =length(tec)+1; tec[l]: =' '; for i: =1 to l do if tec[i]=' 'then n: =n+1; write('в тексте ',n,' слов'); readln; end.

КатяКроцюк2003    1   23.06.2019 18:30    0