Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.
_____________
(A /\ B) \/ (B /\ C) >
(A /\ B) \/ (B /\ C)
так чтоли?
<html>
<head>
<title>Анкета</Title>
</head>
<body>
<h1>Анкета</h1>
<form>
Какой браузер вы используете?
<select name="browser">
<option selected> Internet Explorer
<option> Opera
<option> Mozila
</select>
<br/>
Ваша электронная почта <input type="text" name="email" />
<br/>
Ваше имя <input type="text" name="name" />
<br/>
</form>
<a href="mailto:[email protected]">mailto:[email protected]</a>
</body>
</html>
Var a,b,c,d:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a>b)and(a<c)or(a>c)and(a<b)
then begin d:=b; b:=c; c:=d; end
else if (b>a)and(b<c)or(b>c)and(b<a)
then begin d:=a; a:=c; c:=d; end
else begin d:=a; a:=b; b:=d; end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Пример:
a, b, c:
8 5 2
a = 2 b = 5 c = 8
А:=35*(28-35-3)=-350
В:(35-5)/6=5