Перевести код с pascal на c# program glas; uses crt; type t_str=array[1..10] of string[80]; t_set=set of char; var s,new: t_str; alf,gls,sogl: t_set; kol,i,j,kolg,kolsg,schet: byte; prom: string; begin clrscr; textcolor(green); schet: =1; kolg: =0; kolsg: =0; alf: =['a'..'z']; gls: =['a','e','i','o','u','y']; sogl: =['b','c','d','f','g','h','j','k', 'l','m','n','p','q','r','s','t','v','w','x']; writeln; writeln(' vvedite kol-vo slov(ne > 10 ! ): '); readln(kol); writeln; textcolor(red); writeln(' vvodim tolko zaglavnimi ! '); textcolor(green); writeln; for i: =1 to kol do begin writeln(' vvod ',i,'-go slova: '); readln(s[i]); prom: =s[i]; kolg: =0; kolsg: =0; for j: =1 to length(prom) do begin if (prom[j] in gls) then kolg: =kolg+1 else kolsg: =kolsg+1; end; if kolg> kolsg then begin new[schet]: =prom; schet: =schet+1; end; end; clrscr; writeln; writeln(' ishodnii massiv slov: '); writeln; for i: =1 to kol do begin write(' ',s[i]); end; readkey; writeln; writeln; writeln(' slova gde > glas.'); writeln; for i: =1 to schet do begin write(' ',new[i]); end; readkey; end.

127

142

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

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

Ариэль1606

Информатика

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

Using system; using system.collections.generic; using system.linq; using system.text; using system.text.regularexpressions; internal static class program { private const string glasnye_ = "aeiouy"; private const string soglasnye_ = "bcdfghjklmnpqrstvwxz"; private static void main() { try { console.writeline("введите строку слов (любые символы будут считаться разделителями)"); var s = console.readline(); console.writeline($"гласных больше чем согласных: \n {task1(s).aggregate("", (current, t) => current + t.toupper() + " ")}"); console.writeline(); console.writeline($"гласных больше чем согласных: \n {task1regex(s).aggregate("", (current, t) => current + t.toupper() + " ")}"); console.readline(); } catch(exception e) { console.writeline(e); console.readline(); } } private static ienumerable< string> task1(string s) { console.foregroundcolor = consolecolor.cyan; console.writeline("без регулярных выражений"); var words = s.split(new[] {' ', '-', ',', '.', '*', ': ', '; ', '_'}, stringsplitoptions.removeemptyentries).tolist(); var sb = new stringbuilder(); for (var i = 0; i < words.count; i++) sb.appendline($"слово[{i}] = {words[i].toupper()}"); console.write(sb.; var result = new list< string> (); foreach (var word in words) { var k = 0; foreach (var c in word. { k += glasnye_.contains(c) ? 1 : 0; k -= soglasnye_.contains(c) ? 1 : 0; } if (k > 0) result.add(word); } return result; } private static ienumerable< string> task1regex(string s) { console.foregroundcolor = consolecolor.green; console.writeline("с регулярными выражениями"); var ms = regex.matches(s, @"[a-z]+", regexoptions.ignorecase); var sb = new stringbuilder(); for (var i = 0; i < ms.count; i++) sb.appendline($"слово[{i}] = {ms[i].value.toupper()}"); console.write(sb.; var result = new list< string> (); for (var i = 0; i < ms.count; i++) { var v = ms[i].value; var k = regex.matches(v, $"[{glasnye_}]", regexoptions.ignorecase).count; k -= regex.matches(v, $"[{soglasnye_}]", regexoptions.ignorecase).count; if (k > 0) result.add(v); } return result; } }

ееее70

Информатика

4,7(35 оценок)

Program ex; var p,r: integer; begin read(p,r); write('s = ', p*r) end.

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

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

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

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

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

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

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

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

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

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