Имеется последовательность чисел 0, 5, 50, 55, 500, 505, 550, 555, 5000, 5005, 5050 и так далее (числа состоят только из 0 и 5,
Алекс472 [15]
//PascalABC.NET
uses System;
begin
write(Convert.ToString(ReadInteger - 1, 2).Replace('1', '5'));
end.
<span>Пример объекта-процесса: 1)каникулы 2)гроза 3)процессор 4)компьютер
</span>4 и 3 вот и всё
<span><span>const n=3;
type student=record
fam:string[20];
year:integer;
sex:string[1];
kurs:integer;
sport:string[30];
end;
var x:array[1..n] of student; i,j:integer;
p:student;
begin
for i:=1 to n do
with x[i] do begin
writeln('сведенья о ',i,' студенте:');
writeln('фамилия: ');
read(fam);
writeln('год рождения: ');
read(year);
writeln('пол( м или ж ): ');
read(sex);
writeln('курс: ');
read(kurs);
writeln('вид спорта: ');
read(sport);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i].fam>x[j].fam then begin
p:=x[i];
x[i]:=x[j];
x[j]:=p;
end;
for i:=1 to n do begin
with x[i] do
if (sex='ж') then writeln('Фамилия студентки: ',fam,' Курс: ',kurs,' Вид спорта: ',sport);
end;
end.</span></span>
Десятичные числа:
( 1 ) -50 | Прямой код: 0000000000110010 | Обратный код: 1111111111001101| Дополнительный код: 1111111111001110 |
( 2 ) -500 | Прямой код: 0000000111110100 | Обратный код: 1111111000001011 | Дополнительный код: <span>1111111000001100 </span>|
1 * 35 - 2 * 14 = 7
1 * 14 - 0 * 35 = 14
2 * 14 - 0 * 35 = 28
1 * 35 - 1 * 14 = 21
1 * 35 - 0 * 14 = 35
3 * 14 - 0 * 35 = 42
1 * 14 + 1 * 35 = 49