1) Program gsdn;
Var k: integer;
z,n,i,l,s: real;
Begin
k:=0;
l:=5.6;
s:=0;
Repeat
k:=k+1;
n:=0.3;
i:=l+(n*k);
S:=i+s;
Writeln(i);
Until i=9.8;
Writeln(s);
<span>end.
2) </span>Program afaf;
Var k,h: integer;
z,n,i,l,s,y: real;
begin
k:=0;
h:=0;
l:=8.5;
s:=0;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
S:=i+s;
Until i=40.9;
k:=0;
h:=0;
l:=1;
y:=1;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
y:=i*y;
Until i=3;
If y-s>0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 меньше произведения чисел от 1 до 3 с шагом 0.25');
If y-s<0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 больше произведения чисел от 1 до 3 с шагом 0.25');
If y-s=0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 равно произведению чисел от 1 до 3 с шагом 0.25');
<span>end.
3) </span>Program dsagsa;
var i,j,y: integer;
B: Array[1..5,1..5] of integer;
begin
For i:=1 to 5 do
For j:=1 to 5 do
begin
y:=random(16)-5;
B[i,j]:=y;
end;
For i:=1 to 5 do
begin
Write('(');
For j:=1 to 5 do
Write(B[i,j],' ');
Write(')');
Writeln;
end;
<span>end.
4) </span>program fagasg;
var i,j,i1,j1,y,s: integer;
A: Array[1..50,1..50] of integer;
begin
Writeln('Введите количество строк в массиве');
readln(i1);
Writeln('Введите количество столбцов в массиве');
readln(j1);
s:=0;
For i:=1 to i1 do
begin
Write('(');
For j:=1 to j1 do
begin
y:=random(30)+1;
A[i,j]:=y;
S:=A[i,j]+s;
Write(A[i,j],' ');
end;
Write(')');
Writeln;
end;
<span>end.
Матрицы немного коряво вышли, ну и чуть-чуть быдло кода)</span>
<span><span>Представление информации с помощью некоторого кода</span> - Кодирование
</span>
6.1
#include <iostream>
#include <ctime>
#include <random>
using namespace std;
mt19937 gen(time(0));
uniform_int_distribution<> uid(0, 9);
int main()
{
int a[5][5];
for (int i = 0; i < 5; ++i) {
for (int j = 0; j < 5; ++j) {
a[i][j] = uid(gen);
cout << a[i][j] << " ";
}
cout << endl;
}
return 0;
}
64 Мбайт = 64*1024 Кбайт = 64*1024*1024 байт = 64*1024*1024*8 бит =
2^6*2^10*2^10*2^3 бит = 2^29 бит
16 = 2^4
16^(4*x) = 2^29
4*x = 29 ⇒ x=29/4 = 7,25
Program primer;
procedure random(c,x,y:integer; var r:integer);
begin
case c of
1 : r:=Random(ABS(Y)+ABS(x)+1)+x;
2 : r:=Random(ABS(Y)+ABS(x)+1)+y;
3 : r:=Random(Y-x+1)+x;
4 : r:=Random(x-y+1)+y;
5 : r:=Random(x+y);
6 : r:=Random(ABS(x+y))-ABS(x+y);
7 : r:=x;
8 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(x);
9 : r:=Random(ABS(ABS(x)-ABS(y)))-ABS(y);
end;
end;
var
a,b: array of array of integer;
i,j,x,y,c,m,p,sum:integer; begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\ ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ ');
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then
if (x<y) then
c:=8
else
c:=9
else
if (x=0) or (y=0) then
if(x<0) or (y<0) then
c:=6
else
c:=5
else
if(x<0) or (y<0) then
if (x<y) then
c:=1
else
c:=2
else
if (x<y) then
c:=3
else
c:=4;
SetLength(a,i);
for m:=0 to i-1 do
SetLength(a[m],j);
SetLength(b,i);
for m:=0 to i-1 do
SetLength(b[m],j);
for m:=0 to i-1 do begin
writeln();
for p:=0 to j-1 do begin
random(c,x,y,a[m,p]); {Заполнить двумерный массив случайными числами.}
sum:=sum+a[m,p]; {вычисляет сумму всех элементов массива}
write (a[m,p]:3,' ':3);
end;
end;
c:=0;
writeln('summa=',sum);
for m:=0 to i-1 do begin {Затем организовать новый массив В }
writeln();
for p:=0 to j-1 do begin
if (a[m,p] <0) then begin
b[m,p]:=1; {в котором заменить отрицательные элементы исходного массива на 1} inc(c); {Подсчитать количество замен. }
end
else
b[m,p]:=a[m,p]; {а значения остальных элементов оставить без изменения }
write(b[m, p]:3, ' ':3);
end;
end;
writeln('kol=',c);
a:=NIL;
b:=NIL;
end.
// ABC Pascal