Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
Так же как клаома и грогха
Ответ:
5
Объяснение:
31=2^4+2^3+2^2+2^1+2^0
10^4+10^3+10^2+10^1+10^0=11111
........ 1 байт=8 бит.
...........
.....
Var
a : array [1..100] of longint;
k,i : longint;
begin
k:=0;
for i:=1 to 5 do begin read(a[i]); if a[i]=k then k:=k+1; end;
writeln(k);
<span>end.</span>