Сэкзаменом pascal: 1 : треугольник задан координатами своих вершин на плоскости. составить программу, которая определит, является ли он равносторонним, равнобедренным или разносторонним 2 : дано целое число n (n > 1). найти наибольшее целое число i, при котором выполняется неравнество 3^i < n
180
380
Ответы на вопрос:
Pascalabc.net 3.4 function l(x1,y1,x2,y2: real): =sqrt(sqr(x2-x1)+sqr(y2-y1)); begin var (xa,ya): =readreal2('введите координаты точки а(х,у): '); var (xb,yb): =readreal2('введите координаты точки b(х,у): '); var (xc,yc): =readreal2('введите координаты точки c(х,у): '); var a: =l(xb,yb,xc,yc); var b: =l(xc,yc,xa,ya); var c: =l(xb,yb,xa,ya); var k: =a=b? 1: 0; k+=a=c? 1: 0; k+=b=c? 1: 0; case k of 0: writeln('разносторонний'); 1: writeln('равнобедренный'); else writeln('равносторонний'); end end. **************** begin var n: =readinteger('n='); var i: =trunc(ln(n)/ln(3)); if 3**i=n then i-=1; writeln(i) end.
1: const n=10; var min,i: integer; a: array[1..n] of integer; begin randomize; min: =11; for i: =1 to n do begin a[i]: =random(1,10); write (a[i],' '); // для наглядности. можно удалить if (i mod 2 =1) and (a[i]< min) then min: =a[i]; end; writeln; writeln ('min = ',min) end. пример: 5 4 7 8 6 2 10 4 9 9 min = 5 2 : const n=10; var max,count,i: integer; a: array[1..n] of integer; begin randomize; max: =0; count: =0; for i: =1 to n do begin a[i]: =random(1,10); write (a[i],' '); // для наглядности. можно удалить if a[i]> max then max: =a[i]; end; for i: =1 to n do if max=a[i] then count: =count+1; writeln; writeln ('max = ',max); writeln ('count = ',count); end. пример: 8 5 3 2 2 10 10 9 3 10 max = 10 count = 3
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ЛилияСадыкова55507.06.2021 08:10
-
Математикаалгебра05.10.2022 03:23
-
zai4onok198811.06.2020 14:03
-
Bonya9727.01.2022 10:35
-
layonel91112.06.2020 11:30
-
Werbast04.11.2021 09:22
-
Pandochka777127.10.2021 19:50
-
Nusyaa20.12.2022 00:57
-
TimurChik210027.04.2021 15:32
-
Augustine1234ma26.12.2022 20:44
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.