Получите и распишитесь, ничего сложного здесь нет.
Var
a, b, d, s, alpha: real;
begin
Write('Введите длину диагонали прямоугольника: ');
Readln(d);
Write('Введите величину угла между большей стороной и диагональю :');
Readln(alpha);
alpha := Pi * alpha / 180;
a := d * cos(alpha);
b := d * sin(alpha);
s := a * b;
Writeln('Площадь прямоугольника равна ', s:0:3)
end.
Тестовое решение:
Введите длину диагонали прямоугольника: 35
Введите величину угла между большей стороной и диагональю :29
Площадь прямоугольника равна 519.429
Var i,j:integer;
begin
for i:=0 to 9 do
for j:=0 to 9 do
if (42000+i*100+40+j) mod 72 = 0
then writeln(42000+i*100+40+j);
end.
Результат:
42048
42840
Информация - сведения об окружающем мире,процессов происходящих в нем, которые повышают уровень осведомленности человека.
В широком смысле<em>информация</em> -это общее научное понятие ,включающее в себя обмен сведениями между людьми,обмен сигналами между живой и не живой природой,людьми и устройствами.
<em>Свойства информации </em>
1.Достоверность (информация,полученная без искажений) ,
2.Полнота.
3.Актуальность (информация,ценная в данный момент времени).
4.Полезность .
5.Понятность.
6.Адекватность.