Var
День,месяц:byte;
Begin
Write('№ дня = ');ReadLn(День)
Var C: = 365 - День
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.
a,b,c:real;
a1,b1,c1,r: integer;
begin
writeln('введите угол А=');
readln (a1);
writeln ('введите угол B=');
readln (b1);
c1:=180-(a1+b1);
writeln ('введите радиус r=');
readln (r);
a:=2*r*sin(a1);
b:=2*r*sin(b1);
c:=2*r*sin(c1);
writeln('сторона А=',a);
writeln('сторона B=',a);
writeln('сторона C=',a);
readln;
end.
BASIC
cls
input "a=",a1
input "b=",b1
c1=180-(a1+b1)
input "r=",r
a=2*r*sin(a1)
b=2*r*sin(b1)
c=2*r*sin(c1)
print "a=";a
print "b=";b
print "c=";c