uses crt;
var
x,i:integer;
begin
clrscr;
writeln ('X Sin(x) Cos(x) Tg(x)');
i:=2;
for x:=0 to 45 do begin
write (x:2,' ',sin(x*pi/180):0:4,' ',cos(x*pi/180):0:4,' ');
write (sin(x*pi/180)/cos(x*pi/180):0:4);
writeln;
i:=i+1;
if i=24 then
begin
writeln ('Press Enter');
readkey;
end;
end;
readln;
end.
Const
K = 13;
Var
A:array[1..K] of integer;
i,n:integer;
Sr,d:real;
Begin
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
Sr:=Sr+A[i];
End;
WriteLn;
Sr:=Sr/K;
n:=1;
d:=abs(Sr-A[n]);
For i:= 2 to K do
Begin
if abs(A[i]-Sr)<d then
Begin
n:=i;
d:=abs(Sr-A[n]);
End;
End;
WriteLn('Sr = ',Sr);
WriteLn('Номер ближайшего к среднему арифметическому: ',n);
End.
RAM - объём оперативной памяти
ROM - объём встроенной памяти.
#include <iostream>
using namespace std;
int main()
{
int a;
cin>>a;
if(a>180)
cout<<"высокий"<<endl;
else
cout<<"не очень высокий"<<endl;
system("PAUSE");
return 0;
}