Solovetzmila
?>

Расшифруй эти слова и найди их перевод на русский и казахский языки. Слово 101000010 01111001 01110100 01100101Слово 201000010 01101001 01101110 01100001 01110010Слово 301001110 01110101 01101101 01100010 01100101Все задания выполняем в тетрадях.​

Информатика

Ответы

Назаров588

Объяснение:

слово2 : YЂ…x‰

слово1 : Yђ‹|

слово3 : eЊ„y|

вот такая фигня получилась на разных сайтах разное.

gip5362
Var
 A:array[1..4] of integer;
 i,j,R,P:integer;
function HOD(c,b:integer):integer;
 begin
  while c<>b do
   if c>b
     then
      c:=c-b
    else
     b:=b-c;
  HOD:=c;
 end;
function HOK(c,b, RR:integer):integer;
 begin
  if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))
   then
     begin
       if c>b
          then
           HoK:=c
         else
          HOK:=b;
     end
    else
     HOK:=(c*b) div RR;
 end;
begin
 A[1]:=36;
 A[2]:=54;
 A[3]:=18;
 A[4]:=15;
 P:=1;
 R:=HOD(A[1],A[2]);
 P:=HOK(A[1], A[2], R);
 for i:=3 to 4 do
  begin
   R:=HOD(R, A[i]);
   P:=HOK(P, A[i],R);
  end; writeln('HOK = ',P);
end.
Smolkovaya
Var
 A:array[1..4] of integer;
 i,j,R,P:integer;
function HOD(c,b:integer):integer;
 begin
  while c<>b do
   if c>b
     then
      c:=c-b
    else
     b:=b-c;
  HOD:=c;
 end;
function HOK(c,b, RR:integer):integer;
 begin
  if ((c mod b=0) or (b mod c=0)) and ((c div b > 1) or (b div c > 1))
   then
     begin
       if c>b
          then
           HoK:=c
         else
          HOK:=b;
     end
    else
     HOK:=(c*b) div RR;
 end;
begin
 A[1]:=36;
 A[2]:=54;
 A[3]:=18;
 A[4]:=15;
 P:=1;
 R:=HOD(A[1],A[2]);
 P:=HOK(A[1], A[2], R);
 for i:=3 to 4 do
  begin
   R:=HOD(R, A[i]);
   P:=HOK(P, A[i],R);
  end; writeln('HOK = ',P);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Расшифруй эти слова и найди их перевод на русский и казахский языки. Слово 101000010 01111001 01110100 01100101Слово 201000010 01101001 01101110 01100001 01110010Слово 301001110 01110101 01101101 01100010 01100101Все задания выполняем в тетрадях.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

alexeylipatov
MaratФам
krikriska84
Fedorov1283
socofilesrus4
Nurislamovna1543
ГусенковФролова1121
airlineskozlova69
marani2
Мусаев Игоревич371
Columbia777
cernovarmechta
Динков
Николаевич1033
eizmaylova6