program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.
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>
8мегабит= 8000000 бит/с:8бит(байт)=1000000байт/с=1Мбайт/с
Соответственно 8с.
<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var animals=["кот","рыба","лемур","комодский варан"];
for (i=0; i<animals.length; i++) {
s1 = s1+animals[i]+"\n";
animals[i] = animals[i] + " - прекрасное животное";
s2 = s2+animals[i]+"\n"
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<H1>Животные</H1>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!"
onClick="btnClick();">
<P>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
Результат:
<BR>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>
А1. С какого знака начинается ввод формулы в ЭТ? (3) =
А2. С помощью какой формулы можно определить частное от деления содержимого ячеек А1 на В1? (2) =А1/В1
А3. С помощью какой функции можно определить среднее арифметическое диапазона ячеек А1:В3 (2) =СРЗНАЧ(А1:В3)
А4. Какой вид имеет в ЭТ выражение
(3) 5*(A2+C3)/(3*(B2-D3)) -- знаменатель должен быть в скобках, знаки умножения написаны явно
B1. Дан фрагмент ЭТ. Найдите сумму значений...
B2. =3*C2^A1/(4*B1*A1)+32*C2*B1^4