#include <iostream>
#include <cmath>
using namespace std;
#define ld long double
struct triangle{
ld a;
ld b;
ld c;
};
ld square(triangle t){
ld p = (t.a + t.b + t.c)/2;
return sqrt(p * (p - t.a) * (p - t.b) * (p - t.c));
}
triangle t1,t2;
void solve(){
if(square(t1) == square(t2))
cout << "ИСТИНА";
else
cout << "ЛОЖЬ";
}
signed main() {
ios_base::sync_with_stdio(0);
cin.tie(0);
cout.tie(0);
cin >> t1.a >> t1.b >> t1.c >> t2.a >> t2.b >> t2.c;
solve();
}
В задании сказано, что надо найти 4-хзначных чисел, но в конце написано, что значение чисел не должно превышать 300.
Но числа меньше 300 будут трехзначными, поэтому в моей программе числа могут быть больше 300.
Может быть опечатка в задании.
Программа:
var kol, n, i, a: integer;
sum: real;
z: boolean;
begin
writeln('Введите количество чисел');
readln(n);
if (n > 100) then begin
writeln('Ошибка');
exit;
end;
sum:= 0;
kol:= 0;
z:= false;
writeln('Введите числа');
for i:= 1 to n do begin
readln(a);
if (((a div 10000) = 0) and ((a mod 2) = 1) and (a > 0)) then begin
sum:= sum + a;
kol:= kol + 1;
if((a mod 5) = 0) then z:= true
end;
end;
if ((kol = 0) or (z = false)) then begin
writeln('Нет');
end
else begin
sum := sum / kol;
writeln('Среднее значение суммы: ', sum);
writeln('Количество чисел: ', kol);
end;
end.