512000 * 8 = 4096000
4096000 / 8000 = 512
Или можно так:
512000 * 8 / 8000 - 8 сокращаем и получаем:
512000 / 1000 = 512 кб
1)14-3=11(лет) - столько лет Свете
2)11-2=9(лет) - столько лет Насте
Ответ: Насте 9 лет
var
A: array [1..3] of Integer;
i, imin, imax, imid: Integer;
begin
Write('Введите 3 целых различных числа: ');
Readln(A [1], A [2], A [3]);
if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin
Writeln ('Имеются одинаковые числа!');
Exit;
end;
imin := 1;
imax := 1;
for i := 2 to 3 do begin
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
for i := 1 to 3 do begin
if (i <> imin) and (i <> imax) then
imid := i;
end;
Writeln ('Произведение максимального и среднего числа = ' + IntToStr (A [imax] * A [imid]));
end;
Занимаемый объём на флэш - диске: 32 Кбайт.
Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.