Program asd;
Var a1,a2,a3:integer;
sr:real;
BEGIN
Write('Введите А1: ');
Readln(a1);
Write('Введите A2: ');
Readln(a2);
Write('Введите А3: ');
Readln(a3);
If (a1>=5) and (a1<=10) then Writeln('Есть. ',a1)
else
If (a2>=5) and (a2<=10) then Writeln('Есть. ',a2)
else
If (a3>=5) and (a3<=10) then Writeln('Есть. ',a3)
else
Writeln('Нету.')
<span>END.</span>
Ответ:
Машинный двоичный язык – логическая последовательность “0” и “1”.
Каждая цифра двоичного кода несет количество информации, равное 1 бит.
Function func32771914() As String
Dim i As Single, S As String
For i = 0.12 To 1.88 Step 0.12
S = S & Cos(i ^ 2) + 5 / i ^ 3 - 2 & ";"
Next
func32771914 = S
End Function
Excel VBA
![\displaystyle z= \frac{x^2-7x+10}{x^2-8x+12}+ \sqrt[5]{x^4}=\frac{x^2-7x+10}{x^2-8x+12}+x^{4/5}= \\ \frac{x^2-7x+10}{x^2-8x+12}+x^{0.8}](https://tex.z-dn.net/?f=%5Cdisplaystyle+z%3D+%5Cfrac%7Bx%5E2-7x%2B10%7D%7Bx%5E2-8x%2B12%7D%2B+%5Csqrt%5B5%5D%7Bx%5E4%7D%3D%5Cfrac%7Bx%5E2-7x%2B10%7D%7Bx%5E2-8x%2B12%7D%2Bx%5E%7B4%2F5%7D%3D+%5C%5C+%5Cfrac%7Bx%5E2-7x%2B10%7D%7Bx%5E2-8x%2B12%7D%2Bx%5E%7B0.8%7D)
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var x:=ReadReal('x=');
var y:=(x*x-7*x+10)/(x*x-8*x+12)+power(x,0.8);
Writeln('y=',y)
end.
const N=30;
var a : array [1..N] of longint;
i, j, p:longint;
begin
for i:=1 to N do readln(a[i]);
{...}
p:=1;
for i:=1 to N do
if A[i] div 10 <> 0 then
if A[i] mod 6 <> 0 then p:=p*A[i];
writeln('Произведение двухзначных элементов массива, которые не делятся на 6 = ',p);
<span>end. </span>
