Видеопамять компьютера имеет объём 512 КБ, размер графической сетки 800 х 600, в палитре 32 цвета. Какое количество страниц экрана может одновременно разместиться в видеопамяти компьютера?
ИСПРАВЛЕНО --- Uses crt; {описание переменных} var a,b,c: array [1..20] of integer; x,sum:integer; begin sum:=0; {обнуляем сумму} for x:=1 to 20 do {включаем цикл ввода массивов} begin write('a[',x,']:'); {вывод текста на экран} readln(a[x]); {ввод массива А} write('b[',x,']:'); {вывод текста на экран} readln(b[x]); {ввод массива В} c[x]:=a[x]+b[x]; {формируем массив С} if x mod 2=0 then sum:=sum+c[x]; end; writeln; {переводим указатель на новую строку} for x:=1 to 20 do {цикл вывода массива С} writeln('c[',x,']:',c[x]); {вывод текста на экран} writeln('sum=',sum); {сумма четных элементов массива С} end. --- текст в фигурных скобках удалять не обязательно, он на код не влияет.
Для начала напишем максимальное трёхзначное число в восьмеричной системе. Так как в этой системе используются цифры от 0 до 7, то максимальным числом из трёх цифр будет 777₈
Теперь переведём это число в десятичную систему счисления. Для перевода умножаем содержимое каждого разряда на его "вес" (для первого разряда- 8 в нулевой степени, для второго- 8 в первой степени, итд). Получившиеся произведения складываем: 777₈ = 7*8^2 + 7*8^1 + 7*8^0 = 7*64 + 7*8 + 7*1 = 448 + 56 + 7 = 511₁₀
ответ: десятичное число 511.
Сам перевод можно было упростить, если переводить не 777₈ , а число на единицу большее, то есть 777₈ + 1 = 1000₈ Перевод этого числа проще: 1000₈ = 8^3 = 512₁₀ Осталось только отнять единицу, которую мы ранее добавили, и получим 511₁₀
---
Uses crt;
{описание переменных}
var a,b,c: array [1..20] of integer;
x,sum:integer;
begin
sum:=0; {обнуляем сумму}
for x:=1 to 20 do {включаем цикл ввода массивов}
begin
write('a[',x,']:'); {вывод текста на экран}
readln(a[x]); {ввод массива А}
write('b[',x,']:'); {вывод текста на экран}
readln(b[x]); {ввод массива В}
c[x]:=a[x]+b[x]; {формируем массив С}
if x mod 2=0 then
sum:=sum+c[x];
end;
writeln; {переводим указатель на новую строку}
for x:=1 to 20 do {цикл вывода массива С}
writeln('c[',x,']:',c[x]); {вывод текста на экран}
writeln('sum=',sum); {сумма четных элементов массива С}
end.
---
текст в фигурных скобках удалять не обязательно, он на код не влияет.