Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
<span> ByVal e As System.EventArgs) Handles MyBase.Load
</span> Dim s(9) As String
Dim b As Boolean
TextBox1.Multiline = True
TextBox1.Height = 100
For i = 1 To 9
s(i) = InputBox("Введите элемент " & i)
If s(i) = "0" Then b = True
Next
For i = 1 To 9
If b Then s(i) = "7"
Next
For i = 1 To 9
TextBox1.Text = TextBox1.Text & s(i) & Chr(32)
If i = 3 Or i = 6 Then _
TextBox1.Text = TextBox1.Text & vbCrLf
Next
End Sub
<span>End Class
работает в Visual Studio 2010 (не думаю, что вы в VB6 пишите)
перед запуском, киньте на форму TextBox
</span>
Ответ:
12кб
Объяснение:
так как в изображение всего 8 цветов то по формуле нужно найти 2 в какой степени даст 8 а это 3 значит один цвет кодируется 3 битами именно 3 цифры в двоичной позволят записать 8 цветов не повторяясь
чтоб найти размер перемножим получим 3*2^7*2^8/2^13=2^2*3=12
uses
SysUtils;
var
n,m,i:integer;
begin
readln(n);
m:=0;
for i := 1 to n-1 do
if m > n then break else
if (n mod i = 0) then m:=m+i;
if m=n then writeln('Yes') else
writeln('No');
end.
Есть много вариантов именно по оформлению, но если все упростить, то просто нужно использовать тег <a href= "ссылка на страничку"> Пункт меню </a>
Program lab5_5;
const n=10;
type x=array[1..n]
of integer;
var a:x;i,k:integer;
begin
for i:=1 to n do
begin
read(a[i]); {с вашего позволения я убрал "write (A[i]:4)" в остальном программа получает от пользователя 10 чисел и обрабатывает их}
end;
writeln;
k:=0;
for i:=n downto 1 do
if a[i]<0 then
begin
k:=I
end;
if k>0 then
writeln ('Индекс отрицательного элемента=',k:1)
else
writeln ('В массиве нет отрицательных элементов');
readln;
end.