<span>1. </span><span>Private Sub CommandButton1_Click() </span><span>
<span>Dim n, s As Single </span>
<span>n = Val(TextBox1.Text) </span>
<span>If (n < 500) Then s = n </span>
<span>If ((n >= 500) And (n <= 1000)) Then s = n
* 0.95 </span>
<span>If ((n > 1000) And (n <= 10000)) Then s =
n * 0.93 </span>
<span>If (n > 10000) Then s = n * 0.91 </span>
<span>MsgBox (s) </span>
<span>End Sub</span></span>
Var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
<span>end.</span>
Использовать Робот
алг
нач
нц 2 раз
нц 4 раз
закрасить
вниз
кц
нц 6 раз
закрасить
вправо
кц
нц 4 раз
закрасить
вверх
закрасить
кц
нц 4 раз
влево
кц
нц 2 раз
вниз
закрасить
кц
нц 2 раз
вправо
закрасить
кц
вверх
закрасить
нц 4 раз
если справа свободно и снизу свободно то
вправо
вниз
все
кц
кц
кон