const
n=5;
var
a : array [1..n] of integer;
i, s : integer;
begin
randomize;
writeln('Введите число');
read(s);
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(10)+1;
write(a[i]:4);
end;
writeln;
writeln('Новый массив:');
for i:=1 to n do
if a[i]<s then
a[i]:=0;
for i:=1 to n do
write(a[i]:4);
end.
Var g:integer; p:real;
begin
p:=80000000;
g:=2004;
while p<3*80000000 do begin p:=p+p*0.05; g:=g+1; end;
writeln;
writeln('в ',g,' году население увеличится в трое.');
<span>end.</span>
задача 1
поскольку и объем лазерного диска и объем дискеты выражены в одних единицах, можно сразу приступать к вычислениям
разделим объем лазерного диска на объем дискеты
650/1,39=467,6 (приблизительно 468) дискет
задача2а
переведем килобайты в байты, умножив на 1024
5Кб=5*1024=5120 байт переведем байты в биты, умножив на 8
5120 байт*8=40960 бит
задача2б
чтобы перевести биты в байты разделим их на 8
12288бит/8=1536 байт
чтобы перевести байты в килобайты разделим полученное число на 1024
1536/1024=1,5 Кб
задача2в
переведем биты в байты
2^13/2^3=2^10 при делении показатели степеней вычитаются
переведем байты в килобайты
2^10/2^10=1Кб
Const n=4;
var f:text;
a:array[1..n,1..n] of integer;
i,j,t:integer;
begin
writeln('1:');
assign(f,'my.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(f,a[i,j]);
write(a[i,j]:3);
end;
readln(f);
writeln;
end;
close(f);
for i:=1 to n do
for j:= i+1 to n do
begin
t:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=t;
end;
writeln('2:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Пример:
Файл my.txt:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41
Результат:
1:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41
2:
23 34 44 38
28 14 20 47
19 8 14 20
23 14 48 41