Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [PASCAL] СТРОКИ

Автор: Lutichka 10.5.2007, 19:06

виде массива строк не применяя процедур и функции . узнать сколько фамилии в списке заканчиваются на н

Автор: Rodman 10.5.2007, 19:56

Код


uses crt;
const m=20;
var a:array [1..m] of string;
     i,count:integer;
     t:string;
BEGIN
   for i:=1 to m do 
      readln(a[i]);
  count:=0;
   for i:=1 to m do 
   begin
    t:=a[i];
     if (t[Length(t)]='н')then
         inc(count);
   end;
   writeln(count);
   readln;
END.

так вроде