Первый и последний. А за PSPad Вам спасибо, не знал. Полезная вещь!
Var
s,a:real;
begin
write('введите сумму ');
readln(a);
s:=a*18/100;
writeln('сумма процентов ', s);
end.
Вот для любой подойдет в выделенной области выбираешь стиль с контуром в в изменении фигуры -можешь задать толщину линии.
Написал на паскале
const N = 12;
var i, sum:integer;
average:real;
A:array[1..N] of integer;
begin
for i:=1 to N do begin
A[i]:=random(101);
sum:=A[i]+sum;
write(A[i], ' ');
end;
writeln();
average:=sum/N;
for i:=1 to N do begin
if A[i] > average then
writeln(A[i]);
end;
end.
Чтобы закодировать 256 цветов, необходимо 8 бит (2^8 = 256)
На каждый пиксель приходится по 8 бит ->
74*74*8 = 43808 бит