Ну например ЖИРНЫЙ ШРИФТ , <u>Текст с подчёркиванием, </u><u /> <em>наклонный текст </em>
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b
128 * 128 = 16384 пикселей
4 Кбайт = 4096 байт = 32768 бит
32768 / 16384 = 2 бита на пиксель
2² = 4
Ответ: 4 цвета.
Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.<span>
</span>
Var const n=7;
I,sum:integer;
B:array[1..N] of integer;
Begin
Sum:=0;
For I:=1 to N do
Readl B[I];
For I:=1 to N do
Begin
If I mod 2=0 then
sum:=sum+B[i];
End;
Writeln(sum);
End.