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

РЕШИТЕ Определите, верно ли, что в заданном четырехзначном числе ровно две одинаковые цифры.Разрешено использовать только целочисленную арифметику

Входные данные

На вход подается целое число k (1000≤k≤9999).

Выходные данные

Выведите 1 при положительном ответе на во задачи и любое другое целое число в противном случае.

👇
Ответ:
KSUMOKLOKOVA
KSUMOKLOKOVA
02.06.2023

k = int(input())

a1 = k % 10

a2 = (k // 10)%10

a3 = (k //100)%10

a4 = k // 1000

if (a1 == a2) and (a1!=a3) and (a1!=a4):

   print(1)

   k = 0

elif (a1 == a3) and (a1!=a2) and (a1!=a4):

   print(1)

   k = 0

elif (a1 == a4) and (a1!=a2) and (a1!=a3):

   print(1)

   k = 0

elif (a2 == a3) and (a2!=a1) and (a2!=a4):

   print(1)

   k = 0

elif (a2 == a4) and (a2!=a3) and (a2!=a1):

   print(1)

   k = 0

elif (a3 == a4) and (a3!=a1) and (a3!=a2):

   print(1)

   k = 0

if k != 0:

   print(0)

4,5(90 оценок)
Открыть все ответы
Ответ:
deniza0906
deniza0906
02.06.2023
<?php
echo "Исходный массив:";
$n = rand(1,13);
$S = 0;
for($i = 0; $i < $n; $i++)
{
   $A[] = rand(-10,10);
   $S+=$A[$i];
   echo " $A[$i]";
}
echo "<br>Сумма элементов = $S<br>";

$k = -1;
for($i = $n-1; $i >= 0; $i--)
   if ($A[$i] < 0) $k = $i;
if ($k == -1) echo "В массиве нет отрицательных элементов";
else echo "№ первого отрицательного: $k";
$Sr = $S/$n;
echo "<br>Sr = $Sr<br>";
$B = 0;
$C = 0;
for($i = 0; $i < $n; $i++)
{
   if ($A[$i] < $Sr) $B = $i;
   if ($A[$i] > $Sr) $C = $i;
}
echo "№ элемента, превышающего Sr: $C<br>";
echo "№ элемента, который меньше Sr: $B";
?>
4,7(93 оценок)
Ответ:
KULLRUS1
KULLRUS1
02.06.2023
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
4,5(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ