Program zd;
const
t=0,5;
var
a,b,c:byte;
r,s:real;
begin
writeln('Введите сторону А');
readln(a);
writeln('Введите сторону В');
readln(b);
writeln('Введите угол С (в градусах)');
readln(c);
r:=c*pi/180; {Перевод из градусов в радианы}
s:=t*a*b*sin(r); {Формула для вычисления}
writeln('Результат = ',s);
readln; {Сразу выводит результат на монитор без нажатия Ctrl+F9 (вроде бы)}
end.
Вроде бы так, попробуй запустить проверить
D - частота дискретизации, А - объем, I - разрешение, t - время соответственно.
По идее ок)
program prim;
var a:array [1..3] of integer;
i:integer;
c:integer;
begin
write('Введите 3 числа: ');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i] > c then c:=a[i];
if (c mod 3=0) then
writeln(c, ' кратно 3')
else
writeln(c, ' не кратно 3');
end.
Искомое значение определяется как число сочетаний из 7 по 3:
C(n,m) = n!/(m!*(n-m)! = 7!/(3!*(7-3)!) = 7!/(3!*4!) = 35