Регистрация
Настя25112005
06.01.2022 07:52
Информатика
Есть ответ 👍

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

118
427
Посмотреть ответы 2

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

IgnatBakaev
IgnatBakaev
4,8(95 оценок)

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.

kad132
kad132
4,8(3 оценок)
0xd2 = d2(16) = 11010010(2) 0xa3 = a3(16) = 10100011(2)     11010010     10100011     01110001 01110001(2)=71(16)=0x71

Популярно: Информатика