сервис вопросов и ответовСоставить программу в паскале: Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие
5-9 класс|
|
результаты.:
· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.
· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.
· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
· Иначе, выведите удвоенные значения этих чисел
7ui90
17 марта 2015 г., 13:12:02 (9 лет назад)
Kristinna
17 марта 2015 г., 15:58:10 (9 лет назад)
var
a,b,c,d:real;
begin
readln (a,b,c,d);
if ((a<0) and (b=2*c)) and ((a*b*c*d)>a+c+c+d)
then
begin
writeln ('Среднее арифметическое: ',(a+b+c+d)/4);
writeln ('Произведение: ', a*b*c*d);
writeln ('сумма:',a+b+c+d)
end
else
if (a<0) and (b=2*c)
then writeln ('Среднее арифметическое: ',(a+b+c+d)/4)
else
if ((a*b*c*d)>(a+c+c+d))then
begin
writeln ('Произведение: ', a*b*c*d);
writeln ('сумма:',a+b+c+d)
end
else writeln (2*a,' ',2*b,' ',2*c,' ',2*d);
end.
Dashasuper555
17 марта 2015 г., 18:03:53 (9 лет назад)
program p
var
a,b,c,d : integer;
begin
readln(a),
readln(b),
readln(c),
readln(d),.
if (a<0) and (b/c=2) then witeln ((a+b+c+d)/4);
if (a*b*c*d>a+b+c+d) then begin witeln (a+b+c+d);witeln (a*b*c*d);end;
if (a*b*c*d>a+b+c+d)and((a<0) and (b/c=2)) then begin end else
begin
writeln(2*a) ;
writeln(2*b) ;
writeln(2*c) ;
writeln(2*d) ;
end;
end.
Ответить
Другие вопросы из категории
Очень срочно. даю 100 пунктов. Pascal ABC. Если не сдам, будет 3 за четверть(((((((((((((( Написать программу, которая
сортирует массив ПО УБЫВАНИЮ и ищет в нем элемент, равный X (это число вводится с клавиатуры). Использовать двоичный поиск.
Помогите,пожалуйста, решить задачу.
В марафоне участвуют 132 спортсменов. Прохождение каждым из участников промежуточного финиша регистрируется специальным устройством,которое записывает номер участника с использованием минимально возможного количества бит,одинакового для каждого спортсмена.Определите информационный объем сообщения,записанного устройством ,после того как промежуточный финиш прошли 84 бегунов.
Читайте также
Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.
· Если второе и четвертое числа отрицательны, то выведите их произведение.
· Если первое и третье числа больше 10, то выведите все четыре числа, увеличив их в десять раз
· Если выполняются одновременно два перечисленных выше условия, то выведите эти четыре числа без изменения.
· Иначе, выведите все четыре числа, уменьшив их в десять раз.
Составьте соответствующие отладочные примеры и проверьте работу каждой программы.
Кто знает как решать?
Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран
соответствующие результаты.
·
Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран соответствующие результаты.если разностьпервых двух чисел превышает четвертое,то
выведите все четыре числа без изменения. Если сумма всех чисел не больше 80, то выведите только два первых числа. Если выполняется одновременно два перечисленных выше условия, то выведите только два последних числа.Иначе, выведите все четыре числа,увеличев их на 5
1) составить программу , которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ.
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
Вы находитесь на странице вопроса "Составить программу в паскале: Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.