М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mlk000100
mlk000100
26.04.2023 00:45 •  Информатика

Даны три стороны одного и три стороны другого треугольника. определить будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади. в системе паскаль

👇
Ответ:
zarizatamara00
zarizatamara00
26.04.2023
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
  writeln('Введите строны первого треугольника: ');
  read(a1, b1, c1);
  writeln('Введите стороны второго треугольника: ');
  read(a2, b2, c2);
  p1 := (a1 + b1 + c1) / 2;
  p2 := (a2 + b2 + c2) / 2;
  s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
  s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
  if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
                                           else writeln('Неравновеликие');
end.
4,6(100 оценок)
Открыть все ответы
Ответ:

//Задача 1

begin

 var a := ArrRandom(20, -20, 20).Println;

 Println(a.Min, ' ', a.Max);

end.

//Задача 2

begin

 var a := ReadArrInteger(10);

 a.Where(p -> p.IsOdd).Count.Println;

end.

//Задача 3

begin

 SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;

end.

//Задача 4

begin

 ArrRandom(10,-20,20).Println;

end.

//Задача 5

begin

 var (a, b) := ReadInteger2;

 Range(a, b).Product.Println

end.

//Задача 4

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма цифр: ', sum);

 Writeln('Количество: ', count);

end.

//Задача 7

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   if not Odd(i) then count += 1;

   n := n div 10;

 end;

 if count <> 0 then Writeln('True')

 else Writeln('False');

end.

Задача 8

begin

 var n := ReadInteger;

 for var i := 1 to n do

 begin

   Println('Я НЕ учусь программировать');

 end;

end.

4,5(61 оценок)
Ответ:
Хафиза1
Хафиза1
26.04.2023

//Задача 1

begin

 var a := ArrRandom(20, -20, 20).Println;

 Println(a.Min, ' ', a.Max);

end.

//Задача 2

begin

 var a := ReadArrInteger(10);

 a.Where(p -> p.IsOdd).Count.Println;

end.

//Задача 3

begin

 SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;

end.

//Задача 4

begin

 ArrRandom(10,-20,20).Println;

end.

//Задача 5

begin

 var (a, b) := ReadInteger2;

 Range(a, b).Product.Println

end.

//Задача 4

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма цифр: ', sum);

 Writeln('Количество: ', count);

end.

//Задача 7

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   if not Odd(i) then count += 1;

   n := n div 10;

 end;

 if count <> 0 then Writeln('True')

 else Writeln('False');

end.

Задача 8

begin

 var n := ReadInteger;

 for var i := 1 to n do

 begin

   Println('Я НЕ учусь программировать');

 end;

end.

4,7(87 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ