<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Pow(x,y:BigInteger):BigInteger;
begin
Result:=x;
for var i:=int64(2) to int64(y) do Result*=x
end;
begin
var x,y:integer;
Write('Введите натуральные х и у: '); Read(x,y);
if (x<=0) or (y<=0) then begin
Writeln('Неверный ввод'); Exit
end;
if x=1 then Writeln('Результат: ',y+1)
else begin
var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
Writeln('Результат ',Pow(x,y)+Pow(y,x1))
end
end.
<u>Пример</u>
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
Ответ:
Переведем размеры изображения в точки.
48.26×1200=57912 точек .
Размер изображения составит 57912×57912=3353799744 точек.
Глубина цвета - это количество бит , которые требуются для кодирования цвета одной точки. 16 бит - это 16/8=2 байта.
Тогда общий объём составит 3353799744×2= 670759948800байт.
Переводим в килобайты:670759948800 /1024≈6550390.13 Кбайт.
Переводим в мегабайты:6550390.13 /1024≈6396.87 Мбайт
Моно и в гигабайты перевести: 6396.87/1024≈6.25 Гбайт.
Блок схема, Текст программы и Скриншот работы в приложениях.
Program sr_arifm;
var N,s, sa, cifra: integer;<span>
begin
</span>write(‘N=’);
readln (N);
i:=0;
s:=0;
while N>=0 do
begin
cifra:=n mod 10;
i:=i+1;
if (i = 2) or (i=5) then s:=s+cifra;
n:= n div 10;
end;
sa:=s/2;
writeln (‘sa=’, sa);
end.