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

Найдите разность максимального и минимального из четырёх чисел

👇
Ответ:
Мила5411
Мила5411
07.03.2023
PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите 4 числа:',4);
  Writeln('Разность наибольшего и наименьшего: ',a.Max-a.Min)
end.

Пример
Введите 4 числа: 5.18 10 -2 0
Разность наибольшего и наименьшего: 12
4,6(47 оценок)
Открыть все ответы
Ответ:
аноним4378
аноним4378
07.03.2023

Укажите, значение переменной P после выполнения данного фрагмента программы:

P:=13;

WHILE P>0 DO P:=P-3;

ответ -2

Укажите, значение переменной L после выполнения данного фрагмента программы:

L:=1;

WHILE L<0 DO L:=L+2;

ответ 1

Укажите, сколько раз выполнится тело цикла:

L:=10;

WHILE L>0 DO L:=L-3;

ответ 4

Укажите, сколько раз выполнится тело цикла с данным заголовком:

K:=-1;

WHILE K<3 DO K:=K+2;

ответ 2

Укажите, значение переменной К после выполнения данного фрагмента программы:

K:=-1;

WHILE K<4 DO K:=K+2;

ответ 5

4,6(9 оценок)
Ответ:
Бодя7789
Бодя7789
07.03.2023

#include <iostream>

#include <vector>

#include <set>

#include <cmath>

using namespace std;

bool check(double a, double b, double c){

   return !(a >= b + c || b >= a + c || c >= b + c);

}

double square(double a, double b, double c){

   double p = (a+b+c)/2;

   return sqrt(p * (p-a) * (p-b) * (p-c));

}

bool is_palind(int k){

   string s = to_string(k);

   for(int i = 0; i < s.length() - i - 1; i++)

       if(s[i] != s[s.length()-i-1])

           return false;

   return true;

}

void solve1(){

   vector<double> lines(4);

   double ans = -1;

   for(auto &i : lines) cin >> i;

   for(int i = 0; i < 4; i++)

       for(int j = i + 1; j < 4; j++)

           for(int k = j + 1; j < 4; j++)

               if(check(lines[i],lines[j],lines[k]))

                   ans = max(ans,square(lines[i],lines[j], lines[k]));

   ans == -1 ? cout << "No solution" : cout << ans;

}

void solve2(){

   set<int> s;

   for(int i = 1000; i < 10000; i++)

       if(is_palind(i))

           s.insert(i);

   int n;

   cin >> n;

   s.find(n) != s.end() ? cout << n : cout << *upper_bound(s.begin(),s.end(),n);

}

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