Var
A:array[1..10] of integer;
k:integer:=0;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(10,99);
Write(A[i],' ');
if (i mod 2 = 0)and(A[i] mod 2 = 0) then k+=1;
End;
WriteLn;
WriteLn('Количество четных элементов с четными индексами: ',k);
End.
Var
A:array[1..10] of integer;
P:real:=1;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(10,99);
Write(A[i],' ');
if A[i] mod 5 = 0 then P*=A[i];
End;
WriteLn;
WriteLn('Произведение элементов, кратных 5: ',P);
End.
Решение показано в прилагаемом файле.
Формула:
=ЕСЛИ(C2<=2;0;ЕСЛИ(C2=3;0,2*B2;0,3*B2))
Для представления чисел в микропроцессоре используется двоичная система счисления.
При этом любой цифровой сигнал может иметь два устойчивых состояния: «высокий уровень» и «низкий уровень». В двоичной системе счисления для изображения любого числа используются две цифры, соответственно: 0 и 1. Произвольное число <span>x=anan-1..a1a0,a-1a-2...a-m</span> запишется в двоичной системе счисления как
<span>x = an·2n+an-1·2n-1+...+a1·21+a0·20+a-1·2-1+a-2·2-2+...+a-m·2-m</span>
где <span>ai</span> - двоичные цифры (0 или 1).
Естественно неправильно, посмотри формулу круга для начала, сразу все понятно будет ;)
*намек на степени*
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185