В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
AsanovaLiana
AsanovaLiana
18.08.2022 07:05 •  Информатика

Запрограммировать свою первую букву имени (А) на языке кумир

Показать ответ
Ответ:
Крахмал16
Крахмал16
12.08.2020 02:29
Программа чисто математическая, треугольник не может существовать если сумма двух его сторон меньше третьей стороны (например 27<12+14 условие не выполняется 27 на самом деле больше 26 а значит треугольник со сторонами 12 14 27 не может существовать) 
теперь о площади, площадь тут мы можем найти по формуле Герона эта формула используется когда нам известны все стороны.
Я скинул два скрина на первом программа выводит что треугольник не существует, а следовательно программа останавливается условием halt и не на ходит площадь, а на втором скрине программа выводит что такой треугольник существует и находит его площадь. 
Даны положительные целые числа a,b,c.выяснить существует ли треугольник с длинами сторон a,b,c. площ
Даны положительные целые числа a,b,c.выяснить существует ли треугольник с длинами сторон a,b,c. площ
0,0(0 оценок)
Ответ:
makarova06
makarova06
30.03.2023 23:13

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  p := 1;//начальное значение

  for i := 1 to n do  

     p := p * i;

  writeln(p);

end.  

2) цикл while

program p_while

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  while i <= n do  

  begin

     p := p * i;

     i := i + 1;

 end;

 writeln(p);

end.  

3) цикл until

program p_until

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  repeat

     p := p * i;

     i := i + 1;

  until i > n;

  writeln(p);

end.  

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота