Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

Помогите пожалуйста решить в Паскале. Для четырех произвольных чмсел,введеных с клавиатуры,выведите на экран соответствующие результаты.Если все

5-9 класс

числа не превышают 30,то выведите их удвоенное произведение.Если последнее число четно,то выведите произведение первых двух чисел,уменьшенное в 10 раз.Если выполняются одновременно два перечисленных выше условия,то выведите эти числа без изменения.Иначе,выведите разность первого и последнего чисел.Составьте соответствующие отладочные примеры и проверьте работу каждой програмы.

Fomenov1984 25 янв. 2017 г., 22:57:02 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
222222555Аня
26 янв. 2017 г., 1:55:17 (7 лет назад)

var

  a, b, c, d : integer;

begin

  read (a, b, c, d);

  if  (a <= 30) and (b <= 30) and (c <= 30) and (d <= 30) and (d mod 2 = 0) then

    write (a, ' ', b, ' ', c, ' ', d)

  else if (a <= 30) and (b <= 30) and (c <= 30) and (d <= 30) then

    write (2 * a * b * c * d)

  else if d mod 2 = 0 then

    write (a * b / 10)

  else write (a - d);

end.

Ответить

Читайте также

Составить программу в паскале: Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие

результаты.:

· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.

· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.

· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму

· Иначе, выведите удвоенные значения этих чисел

Кто знает как решать?

Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран
соответствующие результаты.

·

Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.

· Если второе и четвертое числа отрицательны, то выведите их произведение.

· Если первое и третье числа больше 10, то выведите все четыре числа, увеличив их в десять раз

· Если выполняются одновременно два перечисленных выше условия, то выведите эти четыре числа без изменения.

· Иначе, выведите все четыре числа, уменьшив их в десять раз.

Составьте соответствующие отладочные примеры и проверьте работу каждой программы.

Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран соответствующие результаты.если разностьпервых двух чисел превышает четвертое,то

выведите все четыре числа без изменения. Если сумма всех чисел не больше 80, то выведите только два первых числа. Если выполняется одновременно два перечисленных выше условия, то выведите только два последних числа.Иначе, выведите все четыре числа,увеличев их на 5

Помогите пожалуйсто решить прошу очень срочно!!!!

1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;

2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.

3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.

Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!



Вы находитесь на странице вопроса "Помогите пожалуйста решить в Паскале. Для четырех произвольных чмсел,введеных с клавиатуры,выведите на экран соответствующие результаты.Если все", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.