М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lu000001
lu000001
02.01.2020 06:34 •  Информатика

Требовалось написать программу которая вводит с клавиатуры координаты на плоскости x, y​


Требовалось написать программу которая вводит с клавиатуры координаты на плоскости x, y​

👇
Открыть все ответы
Ответ:
Pudge3228
Pudge3228
02.01.2020
Dpi - это аббревиатура английского выражения Dots Per Inch (точек на дюйм). Переведем размеры изображения в точки.
48.26×1200=57912 точек (они же - пиксели).
Размер изображения составит 57912×57912=3353799744 точек.
Глубина цвета - это количество бит (или байт), которые требуются для кодирования цвета одной точки. 24 бита - это 24/8=3 байта.
Тогда общий объём составит 3353799744×3=10061399232 байт.
Переводим в килобайты: 10061399232/1024≈9825585.1875 Кбайт.
Переводим в мегабайты: 9825585.1875/1024≈9595.3 Мбайт
Моно и в гигабайты перевести: 9595.3/1024≈9.37 Гбайт.
4,4(63 оценок)
Ответ:
//Pascal ABC.NET v3.1 сборка 1172

Var
 s,sub,sub1,res:string;
 i,j,k,q,m,n,n1,min1,min:integer;
 ar:array of string;
 ar1:array of string;
 c:char;
 b:boolean;
begin
 readln(s);
 delete(s,pos('0',s),length(s)-pos('0',s)+1);
 b:=false;
 k:=0;
 m:=length(s);
 i:=0;
 n:=0;
 while i<>m do
  begin;
   inc(i);
   for j:=i to m do
    begin;
    if s[i]=s[j] then inc(k);
    if k=2 then break;
    end;
    if k=2 then
     begin;
    c:=s[i];
    inc(n);
    setlength(ar,n+1);
    ar[n]:=c;
    i:=0;
     for q:=1 to 2 do
     delete(s,pos(c,s),1);
     end;
   k:=0;
   m:=length(s);
  end;
 if n<>0 then b:=true;
 i:=0;
 k:=0;
 n1:=0;
 m:=length(s);
  while i<>m do
  begin;
   inc(i);
   for j:=i to m do
    if s[i]=s[j] then inc(k);
    if k=1 then
     begin;
    c:=s[i];
    inc(n1);
    setlength(ar1,n1+1);
    ar1[n1]:=c;
    i:=0;
     while pos(c,s)<>0 do
      delete(s,pos(c,s),1);
     end;
   k:=0;
   m:=length(s);
  end;
 for i:=1 to n do
  sub+=ar[i];
 writeln(sub);
 min:=2147483647;
 for i:=1 to n do
  begin;
    if strtoint(sub)<min then
     min:=strtoint(sub);
  c:=sub[length(sub)];
  for j:=length(sub)-1 downto 1 do
   sub[j+1]:=sub[j];
  sub[1]:=c;
  end;
 min1:=2147483647;
 for i:=1 to n1 do
  if strtoint(ar1[i])<min1 then min1:=strtoint(ar1[i]);
 if b=false then
  begin;
   writeln(min1);
   exit;
  end;
 sub1:=inttostr(min1);
 sub:=inttostr(min);
 res:=sub+sub1;
 if length(sub)<>0 then
 for i:=1 to length(sub) div 2 do
  begin
   c:=sub[i];
   sub[i]:=sub[length(sub)-i+1];
   sub[length(sub)-i+1]:=c;
  end;
 res:=res+sub;
 writeln(res);
end.
4,4(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ