Найти объём памяти (в байтах) для изображения, если его диагональ = месяц рождения * 10 дюймов, глубина цвета 24 бита, а размер пикселя = число рождения/100 миллиметров дата рождения: 21.08.2001 ответ предстваить с решением
Var x1,y1,x2,y2,v1,v2:real; begin writeln("введите количество метров пробегания жирафа"); read(y1); writeln("введите, за сколько секунд он должен пробежать"); read(x1); writeln("введите количество метров пробегания зайца"); read(y2); writeln("введите, за сколько секунд он должен пробежать"); read(x2); v1:=y1/x1; v2:=y2/x2; if v1>v2 then begin writeln("жираф чемпион"); end else if v1<v2 then begin writeln("заяц чемпион"); end else begin writeln("победила дружба); end; end;
var a: array[1..n]of integer; i, j, k, max: integer;
begin max := -MaxInt; for i := 1 to n do begin write('a[', i, ']= '); readln(a[i]); if a[i] > max then max := a[i]; end; writeln(' максимальный элемент массива = ', max); //сортировка методом пузырька for i := 1 to n - 1 do for j := 1 to n - i do if a[j] < a[j + 1] then begin k := a[j]; a[j] := a[j + 1]; a[j + 1] := k end; //вывод массива for i := 1 to n do write(a[i]:4); end.
begin
writeln("введите количество метров пробегания жирафа");
read(y1);
writeln("введите, за сколько секунд он должен пробежать");
read(x1);
writeln("введите количество метров пробегания зайца");
read(y2);
writeln("введите, за сколько секунд он должен пробежать");
read(x2);
v1:=y1/x1;
v2:=y2/x2;
if v1>v2 then
begin
writeln("жираф чемпион");
end
else if v1<v2 then
begin
writeln("заяц чемпион");
end
else
begin
writeln("победила дружба);
end;
end;
n = 8;
var
a: array[1..n]of integer;
i, j, k, max: integer;
begin
max := -MaxInt;
for i := 1 to n do
begin
write('a[', i, ']= ');
readln(a[i]);
if a[i] > max then max := a[i];
end;
writeln(' максимальный элемент массива = ', max);
//сортировка методом пузырька
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] < a[j + 1] then begin
k := a[j];
a[j] := a[j + 1];
a[j + 1] := k
end;
//вывод массива
for i := 1 to n do write(a[i]:4);
end.
Тестовое решение:
a[1]= 12
a[2]= 4
a[3]= 6
a[4]= 23
a[5]= 4
a[6]= 7
a[7]= 8
a[8]= 1
максимальный элемент массива = 23
23 12 8 7 6 4 4 1