<span>Программа на VBA Excel</span>
<span>Sub pr02()</span>
S = 0
For n = 10
To 99
<span>
If Int(n / 2) = n / 2 Then
</span><span> Else</span><span>
S = S + n</span><span>
End If
</span>
Next n
Cells(2, 2)
= S
End Sub
<span>Печатает в ячейке B2 сумму 2475</span><span> </span>
Иванов- парикмахер, Петров-мельник, Сидоров- почтальон , Гришин- плотник и Алексеев- маляр
Алг массив
нач
цел N = 15
целтаб a[1:N]
цел i
нц для i от 1 до N
a[i] := irnd(0,100)
вывод a[i], " "
кц
вывод нс
a[2] := 0
a[14] := 0
нц для i от 1 до N
вывод a[i], " "
кц
кон
<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var mas=["кот",123,"рыба",4.56,"лев",-71,"варан",9,"сова",123.456];
for (i=0; i<mas.length; i++) {
s1 = s1+mas[i]+" ";
if (mas[i]*1 == mas[i]) s2 = s2+mas[i]+" ";
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!"
onClick="btnClick();">
<P>
<H1>Массив:</H1>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
<H1>Результат:</H1>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>
S = 0
for i in range(2,101,2):
s = s+i
print("s=",s)
Результат:
<span>s= 2550</span>