1) 32*1024 =2^5 * 2^10 = 2^15
2) 28 Кбайт =28 *2^13 бит =7*2^15 бит
3) 7*2^15 : 2^15 = 7 бит
4) 2^7 = 128 - максимальное количество цветов в палитр
Это следует понимать так, что диаграмма сохраняет связь со значениями, на основе которых она построена и при изменении этих значений автоматически перестраивается.
Здесь нужен цикл с параметром
Чертить ромбик не буду, это и так понятно.
Условие: "Фасоль белая"
ответ ДА, команда "<span>положить фасолину в белую коробку"
ответ НЕТ, команда "</span><span>положить фасолину в серую коробку"</span>
<span>var s,k: integer;
// описали переменные, которые будут использованы в программе: s и k целые числа
begin
s:= 500;
// переменной s присвоили начальное значение 500
for k:= 4 to 10 do
// организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10)
s:= s - 2*k;
// для каждого k поочередно считаем s:
// k=4 -- s=500-2*4=492
// k=5 -- s=492-2*5=482
</span>// k=6 -- s=482-2*6=470
// k=7 -- s=470-2*7=456
// k=8 -- s=456-2*8=440
// k=9 -- s=440-2*9=422
// k=10 -- s=422-2*10=402<span>
write (s);
// выводим на экран итоговое значение s: 402
end.</span>
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.