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

Сделать информатику паскаль! составить программу, которая выводит сообщение о том,периметр какого из двух треугольников меньше и чему он равен. известны стороны данных треугольников.

👇
Ответ:
annatimofeeva4
annatimofeeva4
12.01.2023
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017

begin
  var a1,b1,c1,a2,b2,c2:real;
  Write('Длины сторон 1 треугольника: '); Read(a1,b1,c1);
  var p1:=a1+b1+c1;
  Write('Длины сторон 2 треугольника: '); Read(a2,b2,c2);
  var p2:=a2+b2+c2;
  if p1<p2 then Writeln('Периметр 1 треугольника (',p1,') меньше')
  else
    if p2<p1 then Writeln('Периметр 2 треугольника (',p2,') меньше')
    else Writeln('Периметры равны ',p1)
end.
4,5(79 оценок)
Открыть все ответы
Ответ:
sof070808
sof070808
12.01.2023
Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. Посему проверка на отрицательность делаться не будет - ввод чисел меньше 1 противоречит условию задачи.

Вариант 1. Без операторов цикла.
var
  a,b,c,d:integer;
begin
  Write('Введите 4 натуральных числа: ');
  Read(a,b,c,d);
  if a mod 2=0 then Writeln('Корень из ',a,' равен ',sqrt(a));
  if b mod 2=0 then Writeln('Корень из ',b,' равен ',sqrt(b));
  if c mod 2=0 then Writeln('Корень из ',c,' равен ',sqrt(c));
  if d mod 2=0 then Writeln('Корень из ',d,' равен ',sqrt(d));
end.

Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775

Вариант 2. С оператором цикла.
var
  i,n:integer;
begin
  for i:=1 to 4 do begin
    Write('Введите натуральное число: ');
    Read(n);
    if n mod 2=0 then Writeln('Корень из ',n,' равен ',sqrt(n))
    end
end.

Пример решения
Введите натуральное число: 3
Введите натуральное число: 8
Корень из 8 равен 2.82842712474619
Введите натуральное число: 16
Корень из 16 равен 4
Введите натуральное число: 12
Корень из 12 равен 3.46410161513775

Вариант 3. С массивами
var
  i:integer;
  a:array[1..4] of integer;
begin
  Write('Введите 4 натуральных числа: ');
  for i:=1 to 4 do Read(a[i]);
  for i:=1 to 4 do
    if a[i] mod 2=0 then Writeln('Корень из ',a[i],' равен ',sqrt(a[i]))
end.

Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775
4,6(86 оценок)
Ответ:
nekitder
nekitder
12.01.2023

Конус – это тело, образованное совокупностью всех лучей, исходящих из точки и пересекающих плоскость.

Точка, из которой лучи исходят, получила название вершины конуса. В случае, когда основанием конуса является многоугольник, он превращается в пирамиду.

Рассмотрим некоторые важные понятия.

Образующей конуса называется отрезок, который соединяет любую точку границы основания конуса, с его вершиной.

Высотой конуса является перпендикуляр, который опущен из вершины к основанию тела.

Конус бывает нескольких типов:

Прямой, если его основание – одна из таких фигур, как эллипс или круг. Обязательным условием является проецирование вершины конуса в центр основания.

Косой – у него центр фигуры, которая находится в основании, не совпадает с проекцией вершины на это самое основание.

Круговой – отталкиваясь от названия, понятно, что в его основании лежит круг.

Усеченный – область конуса, лежащая между основанием и сечением плоскости, которая параллельна основанию и пересекает данный конус.

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