Var n,i,s:integer;
Begin
Readln(n);
For i:=1 to n do
If n mod i =0 then
s:=s+i;
If s = n then
Write('верно')
Else
Write('не верно');
Readln
End.
program p1;
var
y, e, x, d:real;
begin
y:=ex * d;
readln(e);
readln(x);
readln(d);
writeln(y);
end.
64 возможно, но это не точно
5 чисел ето 14,13,12,11,10.
Ответ: 5
Пояснение:
<span>Существует 16 двоичных слов длины 4
Т.к. среди них есть слова, содержащие 1 или 3 единицы, то в нашем коде нужно использовать кодовые слова с длиной больше, чем 4
Слов длины 5 достаточно
Искомые кодовые слова можно получать, например, добавляя к каждому из 16 возможных двоичных слов справа "бит четности", равный 0, если 4-значное двоичное слово содержит четное количество единиц, и равный 1 в противном случае
Например, двоичное слово 0000 преобразуется в 00000, а двоичное слово 1011 – в 10111</span>