, перевести код с pascal на c#. Это очень важно! uses crt;
const n=10;
type shkl=record
fio:string[20];
pol:char;
god:integer
end;
var a:array[1..n] of shkl;
i,km,kd:byte;
begin
clrscr;
writeln('Введите двнные о школьниках');
km:=0;
kd:=0;
for i:=1 to n do
begin
writeln('Школьник ',i);
with a[i] do
begin
write('Введите Фамилия И.О.: ');readln(fio);
repeat
write('Введите пол m-мальчики, d-девочки: ');
readln(pol);
until pol in ['m','d'];
if pol='m' then inc(km) else inc(kd);
repeat
write('Год рождения от 1997 до 2007: ');
readln(god);
until (god>=1997)and(god<=2007);
end;
end;
writeln('Количество мальчиков=',km);
writeln('Количество девочек=',kd);
readln;
clrscr;
if km>0 then
begin
writeln('Мальчики');
for i:=1 to n do
if a[i].pol='m' then writeln(a[i].fio,' ',a[i].god);
end;
writeln;
if kd>0 then
begin
writeln('Девочки');
for i:=1 to n do
if a[i].pol='d' then writeln(a[i].fio,' ',a[i].god);
end;
readln
end.

Malajazaika    3   05.11.2021 01:30    0