ответ: окей
объяснение:
для квадрата:
procedure tform1.button1click(sender: tobject);
var
a,b,c,d,p,s: real;
begin
a: =2; b: =2; c: =2; d: =2;
if ((a=b)and(c=d)and(a=d))then
begin
p: =(a+b+c+d)/2;
s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));
showmessage('s='+floattostr(s));
end else showmessage('это не квадрат');
end;
для треугольника:
procedure tform1.button1click(sender: tobject);
var
a,b,c,p,s: real;
begin
a: =2; b: =2; c: =3;
if (abs(a-b)
begin
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
edit1.text: =floattostr(s);
end else showmessage('не треугольник');
end;
ответ: попробуй
объяснение:
void __fastcall tform1: : button1click(tobject *sender)
{
int count = 0;
tstringlist *list = new tstringlist; // г±г®г§г¤г*гґг¬ г±гїгёг±г®гє
list-> loadfromfile("f: \\гљгіг«гјгігёг*\\info.txt");
memo1-> text = list-> text;
list-> delimitedtext = memo1-> text;
memo2-> text = list-> delimitedtext;
for (int i=0; i < list-> count; i++)
{
if ( list-> strings[i].length() < = 4 )
{
count++;
}
}
label1-> caption = inttostr(count);
delete list;
list = null;
}
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "russian");
int n = 20;
int* mas;
mas = new int[n];
for (int i = 0; i < n; i++)
{
mas[i] = rand() % 10;
cout << mas[i] << " ";
}
cout << endl;
for (int i = 0; i < n - 1; i++)
{
int min = i;
for (int j = i + 1; j < n; j++)
if (mas[j] < mas[min])
min = j;
swap(mas[i], mas[min]);
}
for (int i = 0; i < n; i++)
{
cout << mas[i] << " ";
}
cout << endl;
int sum = 0;
for (int i = n-5; i < n ; i++)
{
sum += mas[i];
}
cout << endl << " sum=" << sum;
}
Объяснение: