М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Krst263
Krst263
25.12.2022 10:38 •  Информатика

Даны два числа первое в системе счисления с основанием три, второе в системе счисления с основанием четыре. найдите их сумму и ответ запишите в системе счисления с основанием 16. 12012(с основанием 3)+10302(с основанием 4)=

👇
Ответ:
12012(с основанием 3)= 140 (с основанием 10)
10302(с основанием 4)= 306 (с основанием 10)
140+306=446
446 (с основанием 10) = 1BE  (с основанием 16)
4,7(82 оценок)
Открыть все ответы
Ответ:
aruzhanomash
aruzhanomash
25.12.2022

var i,n,m,sum,pr,k,j:longint;

begin

 sum:=0; pr:=1;

 write('m: '); readln(m);

 write('n: '); readln(n);

 i:=2;

 repeat

   if m mod i = 0 then

     begin

       sum:=sum+i;

       m:=m div i;

       i:=2;

     end

       else inc(i);

 until m=1;

 writeln('Sum_M:', sum);

 for i:=2 to n div 2 do

   if n mod i = 0 then

     begin

       k:=2;

       for j:=2 to i div 2 do

         if i mod j = 0 then inc(k);

       if (k>2)and(i mod 3 = 0 ) then

         pr:=pr*i;

     end;  

 writeln('Proizv_N:', pr);

 if sum>pr then writeln('Da, sum prost del M > proizv sost del N')

   else

     writeln('Net, sum prost del M < proizv sost del N');

end.

4,8(81 оценок)
Ответ:
maksilyutich
maksilyutich
25.12.2022
Pascal
Как я понял array [1..10,1..5] of integer;

 const     
n = 10;     
m = 5; 
var   
a : array [1..n,1..m] of integer;   
i,j,min,jm,buf : integer; 
begin 
for i := 1 to n do   
for j := 1 to m do     
readln (a[i,j]);   

min := a[1,1]; 
jm := 1;   
for i := 1 to n do   
 for j := 1 to m do     
if a[i,j] < min then     
begin       
jm := j;       
min := a[i,j];     
end;    
if jm <> 1 then   
for i := 1 to n do   
begin     
buf := a[i,1];     
a[i,1] := a[i,jm];     
a[i,jm] := buf;   
end;  
end.
4,7(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ