Сделать программу деление двух чисел в паскале​

94 МБ

Объяснение:

Размер фотографии 10*15 см или 10*0,39*15*0,39=3,9*5,85=22,815 кв. дюйма.

Разрешение сканера 1200 точек на дюйм, для квадратного дюйма разрешение составит 1200*1200=1440000 точек

При сканировании всей фотографии получим 1440000*22,815=32853600 точек.

При глубине цвета 24 бит каждый пиксель кодируется по 8 бит на красный, зеленый и синий канал, всего 8*3 бит=24 бита на пиксель.

Вся картинка при этом займет объем 32853600*24=788486400 бит или

788486400/8=98560800 байт/1024 ≈ 96251 КБ /1024 ≈94 МБ

Поиск простых делителей числа:

var i,j,n:longint;
    f:boolean;
begin
 writeln('Введите число');
 readln(n);
  if n<2 then writeln('Простых делителей нет')
  else
   begin
    write('Число ',n,' ','= 1');
    for i:=2 to n do
     if n mod i=0 then
      begin
       f:=true;
       j:=2;
       while f and(j<=round(sqrt(i/2)))do
        begin
         if i mod j=0 then f:=false
         else j:=j+1;
        end;
      if f then write('*',i);
     end;
   end;
end.

Тестовое решение:

Введите число
2345
Число 2345 = 1*5*7*35*67