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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.