В объяснении
Объяснение:
program zadacha;
const n= 6, m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.
type
Товар = class
public
Наименование: string;
Стоимость: real;
СрокГодности: integer;
Производитель: string;
constructor (Наим: string; Стоим: real; Срок: integer; Произв: string);
begin
Наименование := Наим;
Стоимость := Стоим;
СрокГодности := Срок;
Производитель := Произв;
end;
function ToString: string; override;
begin
Result := $'{Наименование}, {Стоимость}, {СрокГодности}, {Производитель}'
end;
end;
begin
var t1 := new Товар('Конфетка',250.6,24,'Артелька');
var t2 := new Товар;
t2.Наименование := 'Печенька';
t2.Стоимость := 79;
t2.СрокГодности := 36;
Println(t1);
Println(t2)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Выразите в килобайтах объем текстовой информации в "Современном словаре иностранных слов" из 740 страниц, если на одной странице размещается в среднем 60 строк по 80 символов. При записи используется 8-ми битная кодировка.
3 552
Объяснение:
740 * 60 * 80 = 3 552 000 символов всего.
8 * 3 552 000 = 28 416 000 бит
28 416 000 / 8 = 3 552 000 байт
3 552 000 / 1000 = 3 552 кбайт.