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

строковый тип паскаль: Дана строка. Определить сколько в ней слов оканчиваются на букву «н»

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

var i,count:integer;
var stroka:string;
begin
  writeln(Vvedite stroku);
  readln(stroka);
  for i:=1 to length(stroka) do begin
    if(stroka[i] = ­н) and (stroka[i+1]= ) then inc(count);
    if(i=length(stroka)) and (stroka[i] = ­н) then inc(count);
    end;
  writeln(count);
  readln;

end.