Регистрация Спросить otvet5GPT
mschibarova201
20.03.2022 12:38
Информатика
Есть ответ 👍

Правильная дробь называется интересной, если после вычеркивания в числителе и знаменателе всех одинаковых цифр ее значение не изменяется. например, интересной будет дробь , дробь интересной не является. вывести на экран все интересные дроби, знаменатель которых не превосходит 500. (pascal abc)

202
458
Посмотреть ответы 2

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

Камила77
Камила77
4,5(11 оценок)
Var i, j, lensi, lensj, k, z, ni, nj, p: integer; // i - числитель числа, j - знаменатель числа,  k, z - счетчики циклов; lensi - длина числителя (двухзначный или трехзначный); lensj - длина знаменателя  (двухзначный или трехзначный); ni и nj - числитель и знаменатели нового числа (например, было 48/98. вычеркнули 8 и 8, получилось 4/9, где ni = 4, а nj = 9); p - индекс массива newd, rez: real; // rez - здесь хранится результат деления числителя на знаменатель; newd - здесь  хранится результат деления числителя на знаменатель при условии, что вычеркнуты цифры в rez a, b, si, sj, nis, njs: string; // a, b, si, sj  - временные переменные для хранения числителя и знаменателя в формате строк;   nis, njs -  переменные для хранения нового  числителя и знаменателя в формате строк; w - просто строка, выводящая результат w: array[1..10000] of string; // массив, сравнивающий строки для вывода уникальных begin p : = 2; for i : = 10 to 500 do // начало цикла, перебирающего все числа до числа 500/500 for j : = 10 to 500 do begin rez : = i / j; // здесь хранится значение деления, грубо говоря тут 49/98 (по  примеру) si : = inttostr( i ); // конвертируем числитель  в строковый формат, чтобы было удобнее работать с отдельными его цифрами sj : = inttostr( j ); //  аналогично, только со знаменателем lensi : = length( si ); // узнаем длину числителя  (может быть 2 или 3 - в зависимости от количества разрядов) lensj : = length( sj ); // аналогично, только со знаменателем a : = si; // создаем временные переменные, чтобы "вырезать" цифры b : = sj; for k : = 1 to lensi do // цикл сравнивания текущей цифры числителя с текущей цифрой знаменателя for z : = 1 to lensj do begin nis : = si; njs : = sj; if ( a[ k ] = b[ z ] ) then  begin // если цифра в числителе равна цифре в знаменателе delete( nis, k, 1 ); // то она вычеркивается в числителе delete( njs, z, 1 ); // и вычеркивается в знаменателе ni : = strtoint( nis ); // новое число уже без одинаковых цифр  цифр nj : = strtoint( njs ); newd : = ni / nj; // результат деления нового числа, грубо говоря тут 4/8 (по  примеру) if ( newd = rez ) then begin // если результат деления числа равен результату деления нового числа (которые без одинаковых цифр), то выводим интересную дробь w[p] : = inttostr(i) + '/' + inttostr(j) + ' = ' + inttostr(ni) + '/' + inttostr(nj); if ( w[p] < > w[p - 1] ) then begin writeln(w[p]); inc(p); end; end; end; end; end; end.
EGORchikchik228
EGORchikchik228
4,4(63 оценок)
Категория поезда = «скорый» - таких записей у нас 8 вокзал = «казанский» - таких записей у нас 3связка у нас по "или", поэтому достаточно чтобы выполнилось только одно из условий. но если выполнились оба, то у нас такая запись учтена дважды (в каждом из условий). найдем количество записей, в которых выполнились оба условия одновременно - их 1.окончательно 8+3-1=10 записей.ответ: 10

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS