, перевести код с 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.

285

467

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

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

belnata84

Информатика

4,4(97 оценок)

Var x,y: integer; begin write('введите х: '); readln(x); y: =x-24 writeln(y); end.2)var x,y: integer; begin write('введите x: '); readln(x); if x> 0 then y: =x-2 else if x< 0 then y: =x*x else y: =0; writeln(y); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.