На одному маленькому квадратному безлюдному острові зі стороною А метрів перебували К Робінзонів. Чи не порушені їх права на житло, якщо на Робінзона повинно припадати N м2 площі острова?
Задача 2
Баба Яга стверджує, що Змій Горинич не пролетить 1000 км без дозаправки. Чахлик Невмирущий побився об заклад з Ягою на бочку квасу, що пролетить. Змій Горинич пролетів 4 години зі швидкістю 247 км/год і, здійснивши вимушене приземлення, з’їв Івана Царевича Баба Яга бочку квасу чи ні?
#include <cmath>
using namespace std;
double eps = 0.000001;
double sq(double a, double b, double c)
{
double p = (a + b + c) / 2;
return sqrt(p * (p - a) * (p - b) * (p - c));
}
int main()
{
double a1, b1, c1, a2, b2, c2;
cin >> a1 >> b1 >> c1 >> a2 >> b2 >> c2;
if (sq(a1, b1, c1) >= sq(a2, b2, c2) - eps && sq(a1, b1, c1) <= sq(a2, b2, c2) + eps)
cout << "YES";
else
cout << "NO";
}
Программа будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив
readln;
end;
for i:= 1 to 7 do
begin // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив
writeln;
end;
END.