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

Напишите программу вычисления произведения цифр двухзначного числа

👇
Ответ:
ilya494
ilya494
06.01.2022
Program n1;
var a: integer;
begin
readln(a);
writeln((a mod 10)*(a div 10));
end.
4,8(94 оценок)
Открыть все ответы
Ответ:

Хоть где-то робототехника мне пригодилась.

Объяснение:

Смотри дружище. Речь идет не просто о битве — это робо-сумо, которое ценят за особые качества: за элегантность, простоту и возможность проявить интеллект в стратегии. Соревнование проходит на круглом ринге диаметром всего 1,5 м, по периметру которого нарисована белая линия шириной 5 см. Робот, пересекший эту границу, считается проигравшим. И в этой кажущейся простоте кроется бездна возможностей.

Их история начинается в Японий. Где же ещё. Скорее всего они создавались для развлечение, но это переросло во что-то больше.

Так же есть соревнования как: Кегель-ринг, Кегель-ринг квадро, Биатлон и т.д.

P.S. надеюсь я тебе )

4,8(28 оценок)
Ответ:
OLYAPAVLOVA15
OLYAPAVLOVA15
06.01.2022
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin;
  var s:=ReadInteger('n=').ToString;
  If s.Length<>(s.Distinct.Count) then Writeln('не является')
  else
    if s=s.ToCharArray.SortedDescending.JoinIntoString('')
    then Writeln('является') else Writeln('не является')
end.

Примеры
n= 9875431
является

n= 9753321
не является

n= 9763421
не является

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