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

2. Оқушы үй жұмысына ойын бағдарламалау ортасында екі спрайтты қолданып,
скрипт құрды. Бірінші спрайт үшін скрипт командаларын Интернет желісінен
аяды, екіншісін өзі құрастырды. Алайда мұғалімге толыққанды өзі жасаган
ойын ретінде тапсырды. Оқушының қандай теріс әрекет жасағанын анықтаңыз,
Оқушыға теріс әрекетін дұрыстауға кеңес беріңіз.
3. Авторлық құқық мүмкіндіктерін анықтаңыз.
4. Оқушы жобалық жұмысқа жасаған мәтіндік құжат соңына «с Arman-6А 2018»
белгісін қойды. Белгінің нені білдіретінін анықтаңыз.​

👇
Открыть все ответы
Ответ:
Anastasia7711
Anastasia7711
06.04.2020
Function t10_q(x,q:longint):string;
const
  s='0123456789ABCDEFGHI';
var
  t,m:longint;
  r:string;
begin
  t:=x; r:='';
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write('Введите основание системы счисления (2-20): '); Readln(q);
  Write('Введите натуральное число для перевода: '); Readln(n);
  Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)
4,4(45 оценок)
Ответ:
Арабика1
Арабика1
06.04.2020
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.
4,6(41 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ