Ответ:
1100100
Объяснение:
100 делишь на 2 потом 50 на 2 и так далее под один столбик, а потом остатки записываешь в ответ, начиная с конца.
Личную
например:группа крови,адрес(где проживаешь)и т.д.
Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
Решение:
i=32 байт=256 бит
Количество точек изображения равно: 2560 x 1024=2621440
Объём видеопамяти= количество точек изображения умножить на глубину цвета
Объём видеопамяти= <span>256 бит х </span><span>2621440 = 671088640 бита / 8 бит / 1024 байт = 81920 Кбайт / 1024 байт = 80 Мбайта</span>
Ответ:объём видеопамяти= <span>80 Мбайта</span>
Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:
var a, b: longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(b - 1, ' ', a - 1);
end.
А, если ты её просто учителю показываешь:
var a, b: longint;
begin
write('Сколько банок прострелил Гарри? ');
readln(a);
write('Сколько банок прострелил Ларри? ');
readln(b);
writeln('Гарри не прострелил ', b - 1, ' банок');
writeln('Ларри не прострелил ', a - 1, ' банок');
end.