Var a,b,c,d:integer;begind:=0;a:=0;b:=0;c:=0;beginreadln(a);readln(b);readln(c);d:=a+b+c;if d > 3 thenbeginwriteln('A',a-1) ;writeln('B',b-1);writeln('C',c-1);end;elsea:=a*a;b:=b*b;c:=c*c;end;writeln('A',a) ;writeln('B',b);writeln('C',c);end. / в коде ошибка (
1. 5 бит = 2^5 = 32 цвета
2. 16 цветов - 4 бита, т.к. 2^4=16
3. R-красный, G-зеленый, B-синий. Красного и зеленого под завязку, синего нет. Смешаем красный и зеленый, получим желтый.
4. Узнаем объем одного пикселя. 705кб/(1504*640) = (705*1024*8 бит)/(94*16*5*128) = (705*2^13)/(470*2^11) = (705*4)/470 = 6 бит.
6 бит - это 2^6=64 цвета.
5. 512 цветов - это 2^9, то есть на один пиксель приходится 9 бит. (340*560*9)/(1024*8) = (340*70*9)/1024 = 210 Кб.
<em>Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом - комментарии. Можно их оставить - компилятор не сможет их прочитать и программа все равно будет работать.</em>
program printname;
var first_name, family_name : string;
i : byte;
begin
write('Введи свое имя: ');
readln(first_name);<em>{считываем имя в переменную first_name}</em>
write('Введи свою фамилию: ');
readln(family_name); {считываем фамилию в переменную family_name}
for i := 1 to 10 do writeln(family_name, ' ', first_name);<em>{В цикле for со счетчиком i изменяющимся от 1 до 10 печатаем строки с фамилией и именем через пробел}</em>
end.
Ответ:
расширение справа от последней точки
название справа от последней точки
12.pdf : 12 название pdf расширение
остальные файлы точно так же
Const n=10;
var a:array[1..n] of real;
max,min:real; i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max = ',max,' min = ',min);
max:=max*max; min:=min*min;
writeln('Измененный массив:');
for i:=1 to n do
if a[i]>0 then a[i]:=a[i]*min else a[i]:=a[i]*max;
for i:=1 to n do write(a[i]:5);
writeln;
end.
Пример:
Исходный массив:
5 6 7 0 -6 5 -2 10 7 -2
max = 10 min = -6
Измененный массив:
180 216 252 0 -600 180 -200 360 252 -200