moto-eskort
?>

Задание по информатике РОБОТ​

Информатика

Ответы

ekrosenergoserv

Если это надо сделать в Кумире, то вот программа:

использовать Робот

алг

нач

нц пока справа свободно

вправо

если сверху стена то закрасить всё

кц

нц пока справа стена

закрасить

вниз

кц

нц пока справа свободно

вниз

кц

нц пока справа стена

закрасить

вниз

кц

кон


Задание по информатике РОБОТ​
Щуплова Александр
Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.
nestruev
Таких систем исчисления всего две.  Основание а = 9 и основание а =367, но в системе с основанием 367 проблематично записывать числа (символов не хватит).
Если число 3306(10) в системе исчисления с основанием а заканчивается цифрой 3, то тогда
число 3303 делится на основание системы а.
Отсюда алгоритм поиска.  Находим все делители числа 3303.
3303 = 3*1101 = 3*3*367.  Число 367 - простое. Поэтому основаниями системы исчисления 
могут быть только 3, 9, 367.  Основание =3 не подходит, так как по условию число должно заканчиваться на 3  -> основание больше 3.  Остаются 9, 367.

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

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

Задание по информатике РОБОТ​
Ваше имя (никнейм)*
Email*
Комментарий*

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

Lazar
julianikaleksandrova
Yurevich1344
kbndbyb6
Borisovich-Volobueva1803
КузменковаЖигулин
Мечиславович_Кварацхелия1988
vladai2
Мартынова_Ринатовна1657
zolotayaoxana1982
slipu817838
Ваган Шутова332
iv1as2
Анатольевич
Voronin-Albertovich