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

Есть ответ
17.12.2022
154

Ответ


var

  a, b, c, d : integer;

begin

  read (a, b, c, d);

  if  (a


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.