Сделать программу pascal. в одномерном массиве с четным количеством элементов (2n) находятся координаты n точек плоскости. они располагаются в сле дующем порядке: x1y1х2, у2, х3, у3, и т. д. определить минимальный радиус круга с центром в начале координат, который содержит все точки"

179

200

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

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

Andy2511

Информатика

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

Const n = 5; var arr: array [1..2*n] of integer : = (0,1, -2,1, -1,-1, 1,2, -3,0); i: byte : = 1; maxr: real; begin repeat maxr : = max(sqrt(sqr(arr[i]) + sqr(arr[i + maxr); i += 2; until (i > 2 * n - 1); writeln(maxr); end.

dmitry113114

Информатика

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

// pascalabc.net 3.0, сборка 1088 begin var n: =readlnstring('введите число: '); n: =n.where(x-> x in ['0'..'9']).joinintostring(''); writeln('принятое число: ',n); var a: =readlnchar('введите искомую цифру: '); writeln('количество цифр в числе равно ',n.length); if n[1]=n[n.length] then writeln('первая цифра равна последней') else writeln('первая цифра не равна последней'); if pos(a,n)> 0 then writeln('цифра ',a,' входит в число') else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: тут спрятано 456. по частям 764 наше 03число принятое число: 45676403 введите искомую цифру: 0 количество цифр в числе равно 8 первая цифра не равна последней цифра 0 входит в число "школьный вариант" // pascalabc.net 3.0, сборка 1088 var n: longint; i,k: integer; sn: string; a: char; begin write('введите число: '); readln(n); str(n,sn); write('введите искомую цифру: '); readln(a); k: =length(sn); writeln('количество цифр в числе равно ',k); if sn[1]=sn[k] then writeln('первая цифра равна последней') else writeln('первая цифра не равна последней'); if pos(a,sn)> 0 then writeln('цифра ',a,' входит в число') else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: 3476573 введите искомую цифру: 7 количество цифр в числе равно 7 первая цифра равна последней цифра 7 входит в число

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

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

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

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

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

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

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

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

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

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