<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Введите 10 целых чисел:',10);
var pe:=a.Where(t->t.IsEven).Count/10;
Writeln('Нечетных ',100*pe,'%, четных ',100*(1-pe),'%')
end.
<u>Пример</u>
Введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34
Нечетных 60%, четных 40%
Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.
Результат: 27.25
Если округлить до десятых, то: 27.3
Var
x,z : Real;
i : Byte;
Begin
x:=58;
z:=1;
i:=0;
Repeat
z:=(z+x/2)/2;
Inc(i);
Until i>=4;
Writeln(z);
end.
Нужно десятичное число постоянно делить в столбик на 16 и потом делить делитель на 16. сейчас наглядно покажу.
331 будем переводить
вот как показано на фото делишь и потом записываешь число с конца(стрелочкой показано), но в 16 системе нет чисел 10,11,12,13,14,15
вместо них идут буквы
10-A
11-B
12-C
13-D
14-E
15-F
это надо помнить