Program pr;
Var G,H,x,y,z:real;
Begin
x:=2.367;
y:=-1.057;
z:=3.025;
G:=(2*sin(x-2*3.14/3))/(1/2+(cos(y)*cos(y)));
H:=1+(exp(5*ln(z))/3+(exp(5*ln(z))/5));
Writeln('G=',G);
Writeln('H=',H);
end.
Var
x:array [1..10] of integer;
procedure peachat(a:integer);
var
i:integer;
begin
for i:=1 to a do
write (x[i],' ')
end;
var
i,a:integer;
begin
read(a);
for i:=1 to a do x[i]:=i;
peachat(a)
end.
<em><u>Тестовое решение:</u></em>
6
1 2 3 4 5 6
65536 символов это 2^16, значит 16 бит на символ, 16 бит это 8*2 = 2 байта
Всего символов в тексте 16 стр * 30 строк * 32 символа = 15360
Значит в байтах текст занимает 2*15360 = 30720 байт = 30 кбайт
#include<iostream>
using namespace std;
int main()
{
int A;
cin >> A;
int Min = A;
int Max = A;
while(A)
{
cin >> A;
if (Max < A && A!=0) Max = A;
if (Min > A && A!=0) Min = A;
}
cout <<"Min = "<<Min<<"\n";
cout <<"Max = "<<Max<<"\n";
cout <<"Min - Max = "<<Min-Max<<"\n";
return 0;
}