Доброго времени суток, помогите пожалуйста с решением данной задачи, необходим код, для Turbo Pascal. Сама задача звучит так:
С клавиатуры вводится 3 числа, если сумма первого и последнего больше 10, то вывести эту сумму, если произведение больше 20, но меньше 30 (20>>30) то вывести это произведение, в противном случае вывести все эти 3 числа.
Вот и вся задача, заранее благодарю.

1

Ответы и объяснения

2013-12-05T17:48:46+04:00
Var
  a, b, c : integer;
begin
  read (a, b, c);
  if a + c > 10 then write (a + c)
  else if (a * c > 20) and (a * c < 30) then write (a * c)
  else write (a, ' ', b, ' ', c);
end.