Question

100 балов
Помогите,срочно

Answer 1

begin

 var a := Seq(15, 16, 17, 18);

 foreach var x in a do

   if (x + 24) > 40 then

     Print(x)//17 и 18 будут выведены

end.

Answer 2

тьфу ты, 17 и 18 конечно же

Answer 3

решение написано на PascalABC.NET

Answer 4

агась

Answer 5

я тож чекнул

Answer 6

Божечки, то это¿ ∆----∆