Var
k, a, x: real;
begin
readln(a, x);
if (x > 0) then
k := a
else
if (x = 0) then
k := 2 * a
else
k := a / 2;
writeln('y = ', k * k * k + tan(sqr(ln(2 * k))));
end.
-------------------------
<em>///Вывод значения переменной А с тремя цифрами после запятой.</em>
<em>///Если okr = true, то округляет число, иначе отбрасывает лишние цифры.</em>
procedure WriteReal(a: real; okr: boolean);
begin
if (okr) then
writeln(round(a * 1000) / 1000)
else
writeln(trunc(a * 1000) / 1000);
end;
begin
writeln(sin(60));
writereal(sin(60), true);
writereal(sin(60), false);
end.
----------------------------
var
R, r_: real;
-----------------------------
Такого оператора в Pascal нет (в других языках, таких как Java, C# и пр. это оператор инкремента, ++, но в Pascal есть процедура procedure <u><em>inc</em></u>(var i: integer), делающая то же самое
inc(N);
//Dev-C++ 5.11
#include <stdio.h>
int main(void)
{float a[10][10]={0},newar[100]={0},min=2147483647;
int i,j,n,c,coucurr=1,newn=0,boo=0;
scanf("%d",&n);
for(i=0;i<n;i++)
for(j=0;j<n;j++)
{scanf("%f",&a[i][j]);
newar[newn]=a[i][j];
newn++;}
for(i=0;i<newn;i++)
{for(j=0;j<newn;j++)
if (newar[i]==newar[j] && i!=j)
coucurr++;
if (coucurr>1 && min>newar[i])
{min=newar[i]; boo=1;}
coucurr=1;}
if(boo)
printf("%f",min);
else
printf("Nothing");
return 0;}
Пример ввода:
3
1
2
2
3
3
3
4
4
4
Пример вывода:
2<span />
Как сделать - что? перевести в двоичную сис-му счисления, или куда-то в другую?
46А (16)=1001010 (2)=112(8)
155(8)=6D (16)=1101101(2)