1 вариант:
<span><span>var
</span></span>
a, b, c, min: integer;
<span><span>begin
</span></span>
min:=0;
<span>
readln(a, b, c);
</span>
<span>if (a<b) and (a<c) then min:=a;</span>
<span>
if (b<a) and (b<c) then min:=b;
</span>
<span>if (c<a) and (c<b) then min:=c;</span>
<span>
writeln(min);</span>
<span>
end.</span>
2 вариант:
<span>Var a:array[</span>1..3<span>] of </span>integer;
i,z:integer;
<span><span>begin
</span></span>
<span>for i:=</span>1 to 3 do
Readln(a[i]);
z:=a[1];
<span>for i:=</span>2 to 3 do
<span><span>
begin</span></span>
<span><span /></span><span>if a[i]<z
then z:=a[i];</span>
<span>
end;</span>
<span>
writeln(z);</span>
<span>
end.</span>
Ответ:
счётчик (d) будет принимать такие значения:
a
a + 1
a + 2
.
.
a + (n - 1)
a + n
Объяснение:
Эти значения зависят от значений переменных a, n.
Конкретные значения можно вывести на экран, составив и выполнив следующую программу:
алг
нач
цел d,a,n
вывод 'введите значение a: '
ввод a
вывод 'введите значение n: '
ввод n
нц для d от a до a+n
вывод d,нс
кц
кон
Информацию,не имеющую скрытных ошибок,называют доверенностью
a)
25 div 3 = 24:3=8
73 div 7 = 70:7= 10
31 div 7 = 28:7= 4
25 mod 3= 25-24=1
73 mod 7 = 73-70=3
31 mod 7 = 31-28=3
b)
2 div 3 + 1 = 0+1=1
17 - 23 div 7 = 17 - 3 = 14
31 div (7+5) = 31 div 12 = 2
25 mod 3 + 25 div 3 = 8+1=9
47 div (3 mod 7) = 47 div 3 = 15
31 mod (7 div 2) = 31 mod 3 = 1
Sub MyMid()
a = Range("B3:B14")
n = UBound(a, 1)
s = 0
For i = 1 To n
s = s + a(i, 1)
Next i
Range("E3").Value = s / n
End Sub
<em><u>Можно и короче записать:</u></em>
Sub MyMid2()
Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))
End Sub