Нужно описать,каждую строчку этой программы program p1; type mytype=set of char; var m,n,g: mytype; w,s: string; i,k: integer; begin m: =['a'..'f']; n: =['x'..'z']; g: =m+n; writeln('введите строку'); readln(s); writeln('новая строка'); for i: =1 to length(s) do if (s[i] in g) then write(s[i]); writeln; end.

152

286

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

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

owl2006owl

Информатика

4,8(47 оценок)

№1 data 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500 dim a(25) for i=1 to 25 read a(i) print a(i) next for i=1 to 25 for j=1 to 24 if a(j)< a(j+1) then swap a(j),a(j+1) next next print "summa 4etireh naibolshih="; a(1)+a(2)+a(3)+a(4) print "summa 4etireh naimenshih="; a(25)+a(24)+a(23)+a(22) №2 cls input "n"; n dim a(1 to n), b(1 to n) for i = 1 to n a(i) = int(rnd * 100) b(i) = int(rnd * 100) print a(i), b(i) next i imin = 0 min = b(1) for i = 1 to n if b(i) < min then imin = i if i > imin then s = s + a(i): k = k + 1 next i sr = s / k print print "imin"; imin print "sr"; sr

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

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

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

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

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

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

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

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

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

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