Var a,b:integer;
Begin
a:=1;
b:=2;
While a + b < 10do
Begin
a:=a+2;
b:=b+1
End;
a:=a*2;
b:=b*10;
WriteLn('a = ',a,' b = ',b)
End.
2 бита информации, то есть объем алфавита
То есть объем алфавита 4 символа. Пример числа в 4 системе счисления. ТО есть
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Вычислить значение выражения 328 + A416 = ? 2.
см ворд
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.