Ребят желательно с объяснениями 1)Найдите остаток от деления числа 123 в 15 сс на число 27 в 9 сс, ответ записать в системе счисления по основанию 4 (четыре). Основание системы счисления в ответе не указывать.
2) Найдите остаток от деления числа 302 в 9 сс на число 37 в 11 сс, ответ записать в системе счисления по основанию 4 (четыре). Основание системы счисления в ответе не указывать.
Сс- система счисления

20, 11

Объяснение:

Проще всего перевести все числа сначала в привычную десятичную, в ней найти остаток от деления, и потом перевести его в нужную сс.

1) Переводим числа:

Остаток от деления m на n - такое число r, что и m - r делится на n.

Поскольку 258 - 8 = 250 = 25 * 10 - делится на 25, то остаток равен 8.

Переводим в 4 сс:

2) Аналогично:

в конце xix века герман холлерит в америке изобрел счетно-перфорационные машины. он основал фирму по производству этих машин, которая затем была преобразована в фирму ibm.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.