Регистрация
loser05
19.02.2020 09:06
Информатика
Есть ответ 👍

Подсчитайте количество информации: Мирзо-Улугбекский район, улица Асака 5​

288
368
Посмотреть ответы 1

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

Нифи2005
Нифи2005
4,4(56 оценок)

program raf105;

var fam,pol: array[1..100] of string;

n,i: integer;

begin

write('введите количество детей: ');

readln(n);

writeln('вводите фамилии и пол (заглавной буквой м/ж)');

for i: =1 to n do

begin

  writeln;

  write('[',i,'] ','фамилия: ');

  readln(fam[i]);

  write('     пол: ');

  readln(pol[i]);

end;

writeln;

writeln('фамилии девочек начинающиеся на "а" и мальчиков заканчивающиеся на "в"');

for i: =1 to n do

  if (fam[i][1]='а') and (pol[i]='ж') or (fam[i][length(='в') and (pol[i]='м')

    then writeln(fam[i]);

end.

язык программирования pascalabc

Популярно: Информатика