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

Дано два цілих не рівних один одному числа. Перевірити яке з них
більше і вивести повідомлення на екран.
Числа вводяться з клавіатури.

Програма Python

👇
Ответ:
Lizaforever11
Lizaforever11
04.09.2022

a = float(input("Введите 1 число"))

b = float(input("Введите 2 число"))

if (a > b):

   print("A больше")

elif (a < b):

   print("B больше")

4,4(41 оценок)
Открыть все ответы
Ответ:
vadimash
vadimash
04.09.2022

1.

import random

a = random.randint(1,15)

b = random.randint(1,15)

if a == b:

a = 0

b = 0

print(a,b)

2.

import random

n = random.randint(1,999)

a = ""

b = ""

n = str(n)

if len(n) == 1:

a = "однозначное"

elif len(n) == 2:

a = "двухзначное"

elif len(n) == 3:

a = "трёхзначное"

n = int(n)

if n % 2 == 0:

b = "чётное"

else:

b = "нечётное"

print(a + " " + b + " число")

3.

n = int(input("Введите номер дня недели: "))

if n == 1:

print("Понедельник")

elif n == 2:

print("Вторник")

elif n == 3:

print("Среда")

elif n == 4:

print("Четверг")

elif n == 5:

print("Пятница")

elif n == 6:

print("Суббота")

elif n == 7:

print("Воскресенье")

else:

print("Такого дня недели нет")

4,5(52 оценок)
Ответ:
00012333334
00012333334
04.09.2022
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := Abs(ReadInteger('Введите целое число:'));

 var yes := False;

 var n1 := n mod 10;

 n := n div 10;

 while n > 0 do

 begin

   var n2 := n mod 10;

   if n1 = n2 then

   begin

     yes := True;

     break

   end;

   n := n div 10;

   n1 := n2

 end;

 if yes then Print('Верно')

 else Print('Неверно')

end.


А еще это можно решить, к примеру, так:

begin

 var s := Abs(ReadInteger('Введите целое число:')).ToString;

 if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

 else Print('Неверно')

end.

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