c++
#include <iostream>
#include "stdafx.h"
using namespace std;
int main ()
{
setlocale (0, "");
int a;
int b;
cout<<"вычисление площади и периметра\n";
cout<<"введите первое число\n";
cin>>a;
cout<<"введите второе число\n";
cin>>b;
int c = a*b;
int d = a+a+b+b;
cout<<"площадь = "<<c<<endl;
cout <<"периметр = "<<d<<endl;
if (c>d)
{
cout<<"площадь больше периметра\n";
}
else
{
cout<<"периметр больше площади\n";
}
return 0;
}
<span>010000101 - правильный ответ.
</span>
var a,b:real;
begin
readln(a,b);
writeln(sqr(a)-5*sqr(b)*b+sqrt(4*a+b));
end.
Имя файла ''Физика.doc.''
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('n='),-200,200); x.Println;
var min:=x.Min; Writeln('Минимальный элемент ',min);
Writeln('A = ',(x.Where(t->t<100).Sum)/Sin(min))
end.
<u>Пример</u>
n= 13
44 51 41 -154 -169 -100 169 113 183 198 -183 136 58
Минимальный элемент -183
A = 581.362198263188