Регистрация Спросить otvet5GPT
megadruzhinins
05.09.2020 11:37
Информатика
Есть ответ 👍

Определите, верно ли, что в заданном четырехзначном числе ровно две одинаковые цифры. условный оператор,а также операции сравнения и логический (булевский) тип данных, а также типы данных строка или множество использовать нельзя! принимаю на: c++, python,pascal или java.

122
490
Посмотреть ответы 2

Ответы на вопрос:

Vetaliks
Vetaliks
4,7(51 оценок)
//pascalabc.net версия 3.3.5 var  ar: array[0..3] of integer;   digits: array[0..9] of integer;   out: array[1..4, 1..7]of integer; begin   for var i : = 0 to 9 do     digits[i] : = 0;   var sum : = 0;   for var i : = 1 to 2 do   begin     out[i][1] : = 1053;     out[i][2] : = 1077;     out[i][3] : = 1074;     out[i][4] : = 1077;     out[i][5] : = 1088;     out[i][6] : = 1085;     out[i][7] : = 1086;   end;   out[4][1] : = 1053;   out[4][2] : = 1077;   out[4][3] : = 1074;   out[4][4] : = 1077;   out[4][5] : = 1088;   out[4][6] : = 1085;   out[4][7] : = 1086;   out[3][1] : = 1042;   out[3][2] : = 1077;   out[3][3] : = 1088;   out[3][4] : = 1085;   out[3][5] : = 1086;   out[3][6] : = 160;   out[3][7] : = 160;   var num : = readinteger('введите четырехзначное число: ');   ar[3] : = num mod 10;   ar[2] : = num div 10 mod 10;   ar[1] : = num div 100 mod 10;   ar[0] : = num div 1000;   for var i : = 0 to 3 do     digits[ar[i]] += 1;   for var i : = 0 to 9 do     try       sum += digits[i] div digits[i];     except       on system.dividebyzeroexception do    end;   for var i : = 1 to 7 do     write(chr(out[sum][i])); end.
Никита0Скорая0Помощь
Никита0Скорая0Помощь
4,4(69 оценок)
Var sum,p,x,z: integer;   begin  writeln('введите трёхзначное число');   read(x);   sum: =x mod 10 + x div 100 + x div 10 mod 10;   p: =(x mod 10) * (x div 100) * (x div 10 mod 10);   z: =(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100);   writeln('сумма цифр =',sum);   writeln('среднее арифметическое цифр =',sum/3);   writeln('произведение цифр =',p);   writeln('после перестановки 1 и 3 цифр =',z);   end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS