Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>

0 0

4 года назад

Дано:i=7бит найти N-? Прошу помогите

utas07 [94]

Ответ:37

Объяснение:Быстрее пиши

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА!!!Напишите программу, которая в последовательности целых чисел определяет минимальное число. Программа рандо

Artios

===== PascalABC.NET =====

begin

ArrRandom(ReadInteger('n= '), 4, 112).Println.Min.Println

end.

0 0

3 года назад

Дано двузначное число. Найдите частное от деления первой цифры числа на вторую цифру. Число введите с клавиатуры.

Александр Пралич

Var n: integer;
begin
readln(n);
writeln((n div 10) / (n mod 10));
end.

0 0

3 года назад