Ответы на вопрос:
Program test; var a: array[1..100] of integer; i,n: integer; begin randomize; for i: =1 to 99 do begin n: =random(1,30); if i mod 3 = 0 then begin a[i]: =n; a[i-1]: =n; a[i-2]: =n; end; end; for i: =1 to 99 do writeln(a[i]); end.
program treygolnik; var a,b,c: real; begin write('1 сторона треугольника: '); readln(a); write('2 сторона треугольника: '); readln(b); write('3 сторона треугольника: '); readln(c); if (a< b+c) and (b< a+c) and (c< a+b) then begin writeln('треугольник с данными сторонами построить можно'); if ((a=b) and (b< > c) and (a< > c)) or ((b=c) and (c< > a) and (b< > a)) or ((a=c) and (a< > b) and (c< > b)) then writeln('этот треугольник равнобедренный'); end else writeln('треугольник с данными сторонами построить нельзя'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MrNikto52320.06.2022 14:05
-
динозаурус15.06.2021 15:22
-
12345Serik18.03.2022 19:23
-
mlyz20.04.2021 05:40
-
Game777World21.05.2023 03:49
-
PapayaS23.04.2023 06:19
-
yaya430.06.2021 16:00
-
dalilkadyrkulov30.12.2021 00:24
-
Valeriakoko31.01.2023 20:45
-
Алижан0703.12.2020 15:46
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.