#include<iostream>
#include<stdlib.h>
#include<ctime>
using namespace std;
int main()
{
srand(time(0));
setlocale(LC_CTYPE,"rus");
const int First=5;
const int Second=5;
int ArrFirst[First],ArrSecond[Second],a=0,b=0;
for(int i=0;i<5;i++)
{
ArrFirst[i]=rand()%20+1;
ArrSecond[i]=rand()%20+1;
a=ArrFirst[i]-ArrSecond[i];
b=ArrFirst[i]+ArrSecond[i];
cout<<a<<"\t"<<b<<"\n";
}
return 0;}
program raf105;
var
s,s2: string;
i,j,n,price,points: integer;
begin
write('Количество задач в карусели: ');
readln(n);
write('Ответы команды: ');
readln(s);
for i:=1 to length(s) do
if s[i]<>' '
then s2:= s2 + s[i];
price:= 3;
for i:=1 to length(s2) do
begin
if s2[i]='1'
then begin
points:= points + price;
price:= price + 1;
end
else for j:=1 to 3 do
if price > 3
then price:= price-1;
end;
writeln('Итоговый балл: ',points);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Var
x:integer;
y:double;
begin
Readln(x);
y=2*(Sin(3*x)/Cos(3*x))-(Ln(Cos(x))/(Ln(1+Sqr(x));
Writeln(y);
end;
Вроде бы так
1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
for i:=1 to 7 do
begin
readln(x);
a[i]:=x;
end;
assign(f,'file.txt');
rewrite(f);
for i:=1 to 7 do
begin
str(a[i],s);
writeln(f,s);
end;
close(f);
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
val(s,x,c);
if x<0 then k:=k+1;
end;
close(f);
if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
else writeln('В массиве нет отрицательных элементов');
erase(f);
end.
2)
Var a,b,c,d:integer;
Function max(a,b:integer):integer;
begin
if a>b then max:=a
else max:=b;
end;
Begin
readln(a,b,c,d);
a:=(max(a,b));
b:=(max(c,d));
<span> writeln('max=',max(a,b));
</span>End.
N=256
N=2^j
j= 8 бит
I=1/4 кбайта = 256 байт = 2048 бит
k = I/j = 2048 / 8 = 256 знаков
