В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Danila1367
Danila1367
24.01.2023 10:34 •  Информатика

 Главная 

 Расписание 

 Выход из лабиринта. Урок 2

2 четверть

КГУ «ОШ №112»

Алматы, Жетысуский район, Жетысуский район

4 В



Карина

Карипкулова

Ученик

BilimLevel 0%

0

Личный кабинет

Online Mektep



PISA

BilimLand

Компьютеры

iTest

Twig-Bilim

iMektep

21 ДЕКАБРЯ

ИНФОРМАТИКА (3-4 КЛАССЫ) - 4 В

1-АЯ ПОДГРУППА

ВЫХОД ИЗ ЛАБИРИНТА. УРОК 2

УРОК

ВИДЕОКОНФЕРЕНЦИЯ

Открыть чат

Выход из лабиринта. Урок 2

Определи назначение датчика, изображённого на рисунке.



датчик освещённости

датчик для определения касания роботом препятствия

датчик для определения расстояния до препятствия

датчик дл

Показать ответ
Ответ:
PollinaKipollina24
PollinaKipollina24
22.06.2022 18:08
Const n = 10;
var a:array[1..n]of integer;
  min,imin,i,oldmin:integer;
begin
  //Заполнение массива значениями в диапазоне
  //от -100 до 100
  //и одновременно находим минимальный элемент элемент
  min:=100;
  for i:=1 to n do begin
    a[i]:=random(201)-100;
    if a[i]<= min then
    begin
      min:=a[i];
      imin:=i;//Запомним index минимального
    end;
    write(a[i]:5);
  end;
  writeln;
 
  //В цикле сдвигаем элементы массива
  //до индекса минимального включительно на
  //одну позицию вправо
  for i:=imin downto 2 do
    a[i]:=a[i-1];
    a[1]:=min;
  //вывод элементов массива
  for i:=1 to n do write(a[i]:5);
 end.
0,0(0 оценок)
Ответ:
linayaryshkina
linayaryshkina
01.02.2020 23:59
Есть много разных решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
 if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.

Пример:
n=123432
Да

Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
 begin
 m:=n mod 10;
 n:=n div 10;
 n1:=n;
 while n1>0 do
   begin
    m1:=n1 mod 10;
    if m=m1 then b:=1;
    n1:=n1 div 10;
    end;
 end;
if b=1 then writeln('Да') else writeln('Нет');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота