ТутРешу.Ру

Помогите пожалуйста решить в Паскале

Задание:

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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ