Регистрация Спросить otvet5GPT
ilyaokorokov777
07.05.2020 00:40
Информатика
Есть ответ 👍

Дано трехзначное число. нужно определить есть ли в нем одинаковые цифры паскаль. начало сделала, а вот ,что дальше не знаю program dzkan; var x,a,b,c: integer; begin writeln(введите трехзначное число'); readln(x); a: =x div 100; b: =x mod 100 div 10; c: =x mod 10;

200
224
Посмотреть ответы 2

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

Miller48
Miller48
4,4(5 оценок)
Var a,b,c,d: integer; begin readln(a); b: =a mod 10; c: =a mod 100 div 10;   d: =a div 100; if (b=c) or (b=d) or (c=d) then writeln('yes') else writeln('no') end.
Lena111115
Lena111115
4,6(20 оценок)

4-г; 6-е; 15-н; 1-а.

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS