Var r,alfa,beta,gamma,a,b,c:real;
begin
write('R = ');
readln(r);
writeln('alfa,beta,gamma:');
readln(alfa,beta,gamma);
a:=2*r*sin(alfa*pi/180);
b:=2*r*sin(beta*pi/180);
c:=2*r*sin(gamma*pi/180);
writeln('a = ',a:4:2,' b = ',b:4:2,' c = ',c:4:2);
end.
Пример:
<span>R = 2.5
alfa,beta,gamma:
36.87 53.13 90.0
a = 3.00 b = 4.00 c = 5.00</span>
Var n, n1, n2, n3: integer;
begin write('Введите трехзначное число: '); readln(n); if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа') else begin n1 := n div 100; n2 := n div 10 mod 10; n3 := n mod 10; writeln('1 - ', n3, n2, n1); writeln('2 - ', n3, n1, n2); writeln('3 - ', n2, n1, n3); end;end.
Инф.объем = частота * время * разрядность * кол-во дорожек
1 мин = 60 сек
Дорожка 1 (т.к. В условии не сказано что их несколько)
1,3 мб = 1,3*1024*1024*8 бит
1,3*1024*1024*8 = частота * 60 * 8 * 1
1,3*1024*256 = частота * 15
Частота =1,3*1024*256 / 15
Осталось посчитать
Не уверен что правильно, так как не понял что требуют.
program chisla;var a,b,c,d,e,f,i,r: integer;beginwrite('Введите первое число:');readln(a);write('Введите второе число:');readln(b);write('Введите третье число:');readln(c);writeln('Сумма трех чисел:',(a+b+c));write('Стоимость перчаток:');read(e);write('Стоимость портфеля:');read(f);write('Стоимость галстука:');read(i);r:=(a+b+c)-(e+f+i);writeln('Кол-во денег оставшиеся после покупки:',r);end.