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*
Комментарий*

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

smirnovaL1286
смирнов1127
Надежда-Алексеевна82
steam22-9940
upmoskovskiy
Леонтьева
Naumenkova-Ivanov
artemiusst
Мартынова_Ринатовна1657
ulyana-d
PopovViktorovna
mado191065
tvmigunova551
argent
metrikajulia