Var i:integer; <span>begin; </span> <span>read (i); </span> writeln ('1 x ', i, ' = ', i); writeln ('2 x ', i, ' = ', 2*i); writeln ('3 x ', i, ' = ', 3*i); <span>writeln ('4 x ', i, ' = ', 4*i); </span> <span>writeln ('5 x ', i, ' = ', 5*i); </span> <span>writeln ('6 x ', i, ' = ', 6*i); </span> writeln ('7 x ', i, ' = ', 7*i); writeln ('8 x ', i, ' = ', 8*i); <span>writeln ('9 x ', i, ' = ', 9*i); </span> <span>end.</span>
Я накидаю только циклы, программу оформите сами... Первая задача ---------------------------------------- for i:=1 to N do WriteLn (' i= ', i); ----------------------------------------- Таблица Умножения:
------------------------------------- for i:=1 to N begin for j:= 1 to N Write(i,' * ', j, ' = ', i*j:4); WriteLn; end; -------------------------------------------
И, наконец, напишем программу, которая отыскивает максимальный элемент. Это мы сделаем сразу при вводе
var i, N, a, Max, MaxInd: integer;
begin Write('Ведите а='); ReadLn(a); Max:=a; MaxInd:=1; for i:=2 to N do begin Write('Введите элемент'); ReadLn(a); if a>Max then begin Max:=a; MaxInd:=i; end; end; WriteLn('MaxInd =' , MaxInd); ReadLn; end.
В зависимости от качества изображения. То есть сколько цветов используется. Для кодирования черно-белого изображения используется 1 бит (то есть 1 или 0 в регистрах) , для 16 цветов - 8 бит, для 256 цветов - 16 бит и так далее. То есть переведи нужное количество цветов в двоичную систему и подсчитай количество разрядов (можно сделать с помощью стандартного калькулятора).
Вариант ответа 4 - PPT P.S. Во втором варианте буква X означает что у презентации будет совместимость со старыми версиями PowerPoint( вроде бы с 1997-2003)