Вочереди за билетами стоят мужчины и жещины. сколько мужчин стоят в начале очереди до 1 женщины. паскаль

Женщин надо пропускать,потому нет их в начале!

Program pr; var pol: string; i,k,n: integer; begin repeat writeln ('введите количество людей в очереди'); readln (n); until n> 0; k: =0; for i: =1 to n do begin writeln ('введите пол очередного человека в очереди'); readln (pol); if pol='мужчина' then k: =k+1 else break {принудительное завершение цикла}; end; if k=0 then writeln ('мужчин в начале очереди нет') else writeln ('мужчина в начале очереди ',k); end.

склонение- это изменение слова по падежам.

к 1-му склонению относятся имена существительные мужского и женского рода с окончаниями -а, -я в именительном падеже, например, дядя, коза.

ко 2-му склонению относятся имена существительные мужского рода с нулевым окончанием и среднего рода с окончаниями -о, -е в именительном падеже, например, стол, лось, небо, море.

к 3-му склонению относятся имена существительные женского рода с нулевым окончанием в именительном падеже, например, любовь, дочь.

чтобы определить,к какому склонению относится имя существительное, нужно определить его род и окончание в именительном падеже.

существительные кино,кофе,метро - несклоняемые (неизменяемые), не относятся ни к одному из трёх типов склонения. у них нет окончания.

мягкий знак после шипящих на конце существительных 3-го склонения (женского рода) пишется, а существительных мужского рода 2-го склонения не пишется.

 

в блок схемах не сильна

 

var n: integer;

s,s0: real;

begin

  n: =1;

  s: =10;

  repeat

      n: =n+1;

      s: = s + (100+p)*s0/100;

      s0: =(100+p)*s0/100;

  until s> 200;

  writeln(s);

end.