Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
Она напоминает мне корни деревьев.
1. Дано: Растровая сетка размером 600х350; К=8
Решение: По формуле К=2^b определим глубину цвета 8=2^3, глубина цвета b=3 бита. Количество пикселей равно 600х350=210000. Объем видеопамяти равен 210000*3=630000 бит.
Переведем полученный результат в Кбайты.
630000/8=78750 байт. 78750/1024=76,904 Кбайт.
Ответ: 76,904 Кбайт.
2. Дано: b=3 бита
Решение: Опять же по формуле K=2^b, K=2^3=8 цветов.
Ответ: 8 цветов.
Это устройство для DVD дисков
var
num: integer;
begin
ReadLn(num);
If num = 7 Then WriteLn("Воскресенье");
end;