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

Дано трехзначное число. напишите программу, которая определяет есть ли среди цифр заданого целого трехзначного числа одинаковые цифры.

👇
Ответ:
Panovamasha33
Panovamasha33
09.01.2022
 var   
a,i : integer;   
b : array [1..3] of integer;  

begin 
readln (a);    
 for i := 1 to 3 do 
   begin 
   b[i] := a mod 10; 
   a := a div 10;   
 end;    
   If (b[1] = b[2]) or (b[2] = b[3])
   or    (b[1] = b[3]) then   
   writeln ('Есть одинаковые цифры') 
  else   
 writeln ('Нет'); 
 readln ();  
 end.
4,7(2 оценок)
Открыть все ответы
Ответ:
chernika25
chernika25
09.01.2022

Чтобы применить фильтр на основе значений полей, снимите флажки рядом со значениями, для которых не нужно применять фильтр, а затем нажмите кнопку ОК.

Чтобы отфильтровать один или несколько значений из длинного списка, сначала снимите флажок (выделить все) , а затем выберите нужные значения.

Чтобы отфильтровать значения NULL (значение NULL указывает на отсутствие данных) в тексте, числе и полях даты: в списке флажков снимите флажок (выделить все) , а затем установите флажок рядом с надписью (пустые).

Чтобы применить общий фильтр, наведите указатель на пункт текст (или число или Дата) и выберите нужный фильтр. Фильтры, такие как " равно " и " между " и "запрашивать", чтобы ввести необходимые значения.

4,5(10 оценок)
Ответ:
dana1969
dana1969
09.01.2022

Непонятно, что за "надписи".

Предположим, что

1. "бабушка попросила"

2. "взяла лукошко"

3. "подошла к кусту"

4. "сорвала ягоду"

5. "сварили варенье"

тогда логика задачи будет следующей

 

бабушка попросила

Если Маша согласилась тогда

      взяла лукошко

      подошла к кусту

      Если куст с ягодами Тогда

          Пока (на кусте есть ягоды) и (лукошко пустое) Цикл

                  сорвала ягоду

          КонецЦикла

      КонецЕсли

      сварили варенье

КонецЕсли

 

В принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.

4,5(31 оценок)
Это интересно:
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ