Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Kirill6767
01.05.2022 03:52 •
Информатика
Создайте программу для задачи ниже. a, b, c - стороны любого треугольника. Длину одной стены следует сравнивать с суммой двух других. Если хотя бы одна сторона больше суммы двух других, то у треугольника таких стенок нет.
👇
Увидеть ответ
Открыть все ответы
Ответ:
larjon
01.05.2022
Const
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.
4,4
(82 оценок)
Ответ:
ako91545
01.05.2022
1000 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*0 = 8 + 0 + 0 + 0 = 8
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0110 = 2^3*0 + 2^2*1 + 2^1*1 + 2^0*0 = 0 + 4 + 2 + 0 = 6
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0101 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*1 = 0 + 4 + 0 + 1 = 5
0100 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*0 = 0 + 4 + 0 + 0 = 4
1001 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*1 = 8 + 0 + 0 + 1 = 9
Если это одно большое число, то вот так
1000000101100001010101001001 = 2^27*1 + 2^26*0 + 2^25*0 + 2^24*0 + 2^23*0 + 2^22*0 + 2^21*0 + 2^20*1 + 2^19*0 + 2^18*1 + 2^17*1 + 2^16*0 + 2^15*0 + 2^14*0 + 2^13*0 + 2^12*1 + 2^11*0 + 2^10*1 + 2^9*0 + 2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 20*1 = 134217728 + 0 + 0 + 0 + 0 + 0 + 0 + 1048576 + 0 + 262144 + 131072 + 0 + 0 + 0 + 0 + 4096 + 0 + 1024 + 0 + 256 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 135664969
^ - Возведение в степень
4,4
(86 оценок)
Это интересно:
Х
Хобби-и-рукоделие
26.07.2020
Как выращивать спирулину дома...
26.01.2022
Как помочь другу справиться с депрессией...
Д
Дом-и-сад
28.11.2021
Как сделать небольшую септическую систему...
З
Здоровье
16.08.2022
Как найти гипнотерапевта: советы и рекомендации...
Д
Дом-и-сад
29.04.2023
Как правильно покрасить кожаный диван: секреты и советы...
К
Компьютеры-и-электроника
11.02.2022
Как установить новые модели машин в GTA 4: подробная инструкция...
С
Стиль-и-уход-за-собой
02.12.2022
Как создать свой неповторимый образ в стиле 80х...
С
Стиль-и-уход-за-собой
28.01.2022
Как окрасить волосы в технике Dip-Dye при помощи Kool Aid?...
Ф
Философия-и-религия
03.06.2020
Практики тибетского буддизма: как начать и что ожидать...
К
Компьютеры-и-электроника
27.05.2020
Как увеличить масштаб страницы браузера...
Новые ответы от MOGZ: Информатика
роза413
19.05.2020
Напишите программу (в pascal abc. net) , которая в последовательности натуральных чисел ( всего чисел 10) находит сумму всех честных чисел. гарантировано в после доверенности...
nastyakramskay
19.05.2020
Чертёжнику был дан для исполнения следующий алгоритм: команда 1 повтори 5 раз сместиться на (-2; -1) сместиться на (2; 1) конец какой должна быть команда 1, чтобы чертёжник...
Timyr123678
08.01.2020
Для чего нужны игры стратегии? напишите не кратко. 15 ....
gjvftyGHbgg
20.04.2021
Составить программу дано целое число n ( 0). найти произведение 1 · 2 · 3 · …(n сомножителей)....
милана59
15.09.2022
Винформационных моделях разомкнутых систем отсутствует а) объект; б) объект; в) канал ; г) канал обратной связи....
мозк2
15.09.2022
Информационной (знаковой) моделью является … а) анатомический муляж; б) макет здания; в) модель корабля; г) формула....
elenakrivohiza3555
15.03.2023
Даны натуральные числа a и b. требуется найти такое минимально возможное натуральное число k ≥ a, что сумма всех чисел от a до k больше b. для решения этой ученик написал...
premium79
15.03.2023
Вводится последовательность чисел до тех, пока не будет введено два равных числа подряд. посчитать количество чисел в последовательности. выходные данные выведите количество...
staseem35
12.10.2021
Дан массив целых чисел из 10 элементов, удалить из него все элементы, в которых последняя цифра четная,а само число делится на нее...
kristinasav051
05.07.2022
Игорь составляет таблицу кодовых слов для передачи сообщений, каждому сообщению соответствует своё кодовое слово. в качестве кодовых слов игорь использует 6-буквенные слова,...
MOGZ ответил
Напишите Отзыв о произведении художественной литературы М. М Зощенко...
В.Г. Распутин «Уроки французского» II. Отражение в рассказе трудностей...
Однородное колесо радиуса R=0,5м равномерно катится без по горизонтальной...
Яке центральне гальмування виконує охоронну функцію для нервової системи...
Який заклик звучить у вірші Олени Теліги «Сучасникам»? А) Ставати до...
Что такое генетический код и его свойства...
Мне нужна должен сдать через 20 мин а делаю ещё 2 задания и не успеваю...
Ребята напишите формулу площади паралелепипида...
Виконуючи хімічні досліди,змішали 10 г 2%-вого розчину речовини з 20...
1.Налийте у пробірку 2-3 мл розчину калій ортофосфату. Додайте до розчину...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.