Var n:integer;
Begin
Read(n);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
Write(n)
End.
Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
1.
1) A + B (складываем)
2) A+B/2 (находим полусумму)
2.
1)A-C ( вычитаем)
2) найти модуль A-C
3.
1)B*C ( умножаем)
2) B*C возводим в квадрат
Нееет, ты что!!! Вирусы только в электронных устройствах! но есть такая болезнь не помню как называется..