В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
kaltaeva98
kaltaeva98
11.04.2022 05:13 •  Информатика

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

Показать ответ
Ответ:
Гульнара1709
Гульнара1709
03.11.2020 13:30
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
0,0(0 оценок)
Ответ:
SonyaKot1
SonyaKot1
20.07.2020 09:11

При автоматическом переводе могут возникнуть много проблем

в зависимости от контекста слова могут иметь разное значениеперевод пословиц, поговорок и прочих стандартных словосочетаний может не существовать на другом языке или может быть передан не верноотрицательные предложения могут перейти в положительныеигра слов часто непереводиманедостаток информации одного текста не может быть восполнен. Например в английском у глаголов нет родов, а в русском естьдругая причина потери смыслаэлектронный переводчик может не знать, как переводится слово или фраза, или не иметь всех вариантов перевода
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота