сервис вопросов и ответовНаписать программку на C/C++/Pascal/Basic
10-11 класс|
|
В Сером королевстве запрещены все цвета. Жители королевства могут использовать только варианты серого цвета от черного до белого. Если рассмотреть цвет с использованием модели RGB, где каждый из трех каналов принимает значение от 0 до 255, то в Сером королевстве разрешены только цвета, у которых разница между значениями в любой паре каналов не превышает 25.Напишите программу, которая определяет для цвета, заданного в модели RGB, является ли он разрешенным в Сером королевстве.Первая строка ввода содержит три целых числа в диапазоне от 0 до 255 — значения в каналах R, G и B.Вывести сообщение ALLOWED, если цвет является разрешенным в Сером королевстве, иначе выведите сообщение FORBIDDEN.
Никита44555
25 авг. 2015 г., 3:46:27 (8 лет назад)
Таta
25 авг. 2015 г., 5:22:56 (8 лет назад)
program z1;
var
a, b, c:byte;
begin
writeln;
read(a, b, c);
if (abs(a-b)<25) and (abs(b-c)<25) and (abs(c-a)<25) then
write('ALLOWED')
else
write('FORBIDDEN');
end.
Ответить
Другие вопросы из категории
. Составьте программу (на языке Turbo Pascal) для решения следующей экономической задачи.
В банк положена сумма 30 000 руб. под 18% годовых, и в течение 6 лет вкладчик не будет снимать деньги со счета. Какая сумма окажется на счете вкладчика через 6 лет.
Помогите , пожалуйста. Задача пр информатике. Изучили операторы for, if ,while , repeat . Составьте программу , пожалуйста. Если на одну чашу весов
посадить мальчика , который весит n - кг , а на др. чашу весов насыпать n-кг конфет , к мальчику посадить девочку , которая весит на 5 кг меньше , а конфеты гораздо тяжелее детей , сколько необходимо съесть конфет детям , чтобы чаши весов уравновесились ?
К форматированию текста относятся следующие действия: а) выравнивание текста по ширине; б) удаление строки; в) установка отступа в первой строке абзаца;
г) поиск и замена фрагментов текста; д) изменение интервала между символами.
Читайте также
Напишите на языках Pascal и C++ программу, которая генерирует 2 случайных вещественных числа и вычисляет их сумму, разность, произведение и
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Помогите пожалуйста написать программу на ABC Pascal.
Определить долю гласных букв в заданном тексте на английском языке.
Написать программу на turbo pascal.
1.Вычислить значение факториала n! (P=1*2*...*n*N)..N=12
2.Найти сумму элементов заданного массива C[1..n]. Данные для ввода: n=7; C[1;2;3;-4;5;-6;7].
3.
Вы находитесь на странице вопроса "Написать программку на C/C++/Pascal/Basic", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.