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

Даны два числа, определить равны ли они между собой, вывести сообщение на экран. Числа вводятся с клавиатуры

👇
Ответ:
максим13011
максим13011
25.02.2020

Числа для сравнения:

-11/12 и 10/11

Больше будет то число, которое положительное, т.к. положительное число всегда больше отрицательного. (Но исключение было бы, если бы данные два числа были в модуле) Сорри, если я написала не то, что предназначивалось, я особо не знаю, что вы проходите, поэтому пишу то, что знаю, и числа выбрала такие, что бы было менее понятнее

4,6(38 оценок)
Открыть все ответы
Ответ:
p5wf389f
p5wf389f
25.02.2020

не знаю как это учат в школе, но можно сделать так

Переведем десятичную дробь в простую 21,5 = 215 / 10

переведем числитель и знаменатель

Остатки от деления:


      215 |  8 => 7  

       26 |  8 => 2  

        3 |  8 => 3  

Записываем в обратном порядке 215_{10} = 327_{8}

Остатки от деления:


       10 |  8 => 2  

        1 |  8 => 1  

Записываем в обратном порядке 10_{10} = 12_{8}

\frac{215}{10}_{10} = \frac{327}{12}_{8}

Теперь делим в столбик в восьмиричной сс (написать это в тексте нереально конечно)

32 - 2*12 = 32 - 24 =  6  => 2

спускаем 7

67 - 5*12 = 67 - 62 = 5 => 25

дальше пойдут дроби

50 - 4*12 = 50 - 50 = 0 => 25.4

ответ  25.4

25.4_{8} = 2\cdot8^1 + 5\cdot8^0 + 4\cdot8^{-1} = 16 + 5 + 0.5 = 21.5_{10}

4,6(91 оценок)
Ответ:
MIRROR00000
MIRROR00000
25.02.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('k=',
    ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)
end.

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