Программа (без проверки существования треугольника):
#include <iostream>
#include <cmath>
using namespace std;
int main() {
double a,b,c,p;
double p2, s;
cin >> a >> b >> c;
p = a+b+c;
p2 = p/2.0;
s = sqrt(p2*(p2-a)*(p2-b)*(p2-c));
cout << "p = " << p << " s = " << s;
return 0;
}
Пример 1:
3 4 5
p = 12 s = 6
Пример 2:
1 1 1
p = 3 s = 0.433013
1.пусть 8л-1 сосуд, 2-второй
набираем полностью 1 сосуд, переливаем в 2 и выливаем из 2 всё. В 1 ост.3 л. Переливаем 3л во 2 сосуд и набираем полностью первый. Из первого переливаем во 2 сосуд и из 2 всё выливаем. В 1 остаётся 6л. Выливаем 5л во второй сосуд и в первом остаётся 1 л.
2.набираем 2 сосуд(5 литров) и переливаем в 1 сосуд. Затем опять наливаем во 2 и переливаем в 1. Во втором останется 2л. Выливаем всё из 1 сосуда и переливаем в него 2л из 2 сосуда. Затем 2 раза повторяем действия: наливаем воды во 2 сосуд и переливаем в 1. После 2 повторения во 2 сосуде будет 1 л воды
3. 11л-1 сосуд, 2л-2сосуд.
Наливаешь в 1 сосуд 11л, затем пять раз повторяешь: переливаешь из первого сосуда во 2-ой 2л, затем выливаешь всё из 2 сосуда. В конце в первом сосуде останется 1л.
<span>program</span><span> kalkulator; </span>
<span>uses</span><span> crt; </span>
<span>var</span><span> a</span><span>,</span><span>b</span><span>,</span><span>c</span><span>:</span><span>real</span><span>; </span>x<span>:</span><span>integer</span>;
<span>Begin</span>
clrscr;
<span>Writeln</span><span>(</span><span>'введите 2 числа'</span><span>)</span>;
<span>Readln</span><span>(</span>a<span>,</span>b<span>)</span>;
<span>Writeln</span><span>(</span><span>'выберете действие'</span><span>)</span>;
<span>Writeln</span><span>(</span><span>'1-"+" 2-"-" 3-"*" 4-"/"'</span><span>)</span>;
<span>Readln</span><span>(</span>x<span>)</span>;
<span>case</span> x <span>of</span>
<span>1</span><span>:</span><span>begin</span> c<span>:=</span>a<span>+</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>2</span><span>:</span><span>begin</span> c<span>:=</span>a<span>-</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>3</span><span>:</span><span>begin</span> c<span>:=</span>a<span>*</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>; <span>end</span>;
<span>else</span><span>begin</span> c<span>:=</span>a<span>/</span>b; <span>Writeln</span><span>(</span>c<span>:</span><span>2</span><span>:</span><span>2</span><span>)</span>;
<span>end</span>;
<span>end</span>;
<span>Readln</span>;
<span>end</span>.
Я так понял тебе нужно на паскале, тогда держи:
program dataScience;var x,y,z, sum: integer;beginsum:=0;read(x, y, z); if x=>0 then//проверка на положительность x if y=>0 then//проверка на положительность y if z=>0 then//проверка на положительность z sum:=(x+y+z)/3;//счёт среднего writeln(sum);//вывод среднего арефметического end.
