• Составить список сотрудников,
    предприятия, уходящих в 2014 году на пенсию, определить процент лиц мужского и
    женского пола. Исходными данными является список сотрудников из 10 человек с
    указанием их пола, года рождения.

Ответы 1

  • a:array[1..10] of integer;b, d:array[1..10] of string;c:array[1..10] of string;m, n, i, k, t :integer;beginfor i:=1 to 10 doreadln(a[i]);readln(b[i]);readln(c[i]);t:=1;for i:=1 to 10 doif (2014-a[i])>65 then begin d[t]:=b[i]; t:=t+1; end;for i:=1 to 10 doif c[i]='м' then m:=m+1else n:=n+1;m:=m\10*100;n:=n\10*100;for i:=1 to t dowriteln(d[i]);writeln(n);writeln(m);readln;end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years