Даны два натуральных числа. выяснить в каком из них сумма цифр больше.написать программу в паскале абс, использую функцию.

Function summ (a : integer) : integer; var   s : integer; begin   s : = 0;   while (a > 0) do   begin     s : = s + a mod 10;     a : = a div 10;     end;   summ : = s; end; var   a, b : integer; begin   read (a, b);   a : = summ (a);   b : = summ (b);   if a > b  then write ('in  1') else if b > a then  write ('in 2') else write ('eq'); end.

1. определяем количество байт, необходимое для отображения 16777216 цветов. те, кто немного "в теме" и так знают, что 16 млн. цветов - это "трехбайтный" цвет, когда на каждый канал rgb - красный, зеленый и синий отводится ровно один байт. а остальным придется немного повычислять. a) можно идти по пути умножения, если у нас калькулятор на четыре действия арифметики. вспомним, что 1024 байта (1 кбайт) - это 2¹⁰ байт (поэтому они и "кило" байт). забываем про байты, но получаем знание о том, что десятая степень двойки - это 1024. умножаем 1024 само на себя, получая 1048576- это квадрат, т.е. 20-я степень. а дальше удваиваем, получая 2097152, 4194304, 8388608 и 16777216. вот оно, наше число. умножали 4 раза, значит окончательно степень 24. 24 бита делим на 8, получая 3 байта. б) если у нас есть логарифмы, то решаем уравнение 2ⁿ=16777216. n = ㏒₂16777216 = 24. кто не может вычислять логарифмы по основанию 2, тот вычисляет n=㏑(16777216)/㏑(2) 2. теперь найдем, сколько же надо всего пикселей. 1600 х 1200 = 1920000. немало, да еще каждый пиксель требует 3 байта на свой цвет. в целом все эти пиксели займут 1920000 х 3 = 5760000 байт. 3. переведем полученный объем памяти в килобайты и мегабайты. 5760000 / 1024 = 5625 кбайт. 5625 / 1024 ≈ 5.5 мбайт. 4. смотрим, что нам предлагают не ниже этих значений. только 64 мбайта. придется брать такую карту, потому что 4 мбайта не хватит. ответ: 64 мбайта

// pascalabc.net 3.1, сборка 1184 от 02.03.2016 uses graphabc; begin   pen.width: =3;   // 0   drawrectangle(20,20,70,120);   // 1   line(90,70,140,20);   line(140,20,140,120);   // 2   moveto(160,20);   lineto(210,20);   lineto(210,70);   lineto(160,120);   lineto(210,120);   // 3   moveto(230,20);   lineto(280,20);   lineto(230,70);   lineto(280,70);   lineto(230,120);   // 4   moveto(300,20);   lineto(300,70);   lineto(350,70);   line(350,20,350,120);   // 5   moveto(70,140);   lineto(20,140);   lineto(20,190);   lineto(70,190);   lineto(70,240);   lineto(20,240);   // 6   line(90,190,140,140);   drawrectangle(90,190,140,240);   // 7   moveto(160,140);   lineto(210,140);   lineto(160,190);   lineto(160,240);   // 8   drawrectangle(230,140,280,240);   line(230,190,280,190);   // 9   drawrectangle(300,140,350,190);   line(350,190,300,240) end.