Question

нужно срочно решить в паскале то что на фото

Answer 1

// PascalABC.NET 3.4.2, сборка 1805 от 29.09.2018

// Внимание! Если программа не работает, обновите версию!

№1

begin

 for var i := 0 to 45 do

 begin

   var x := -5 + 0.2 * i;

   var y := Abs(x - 1) + 3;

   Writeln(x:4:1, y:6:1)

 end

end.

№2

begin

 var (a, b) := ReadInteger2('Введите a и b:');

 Range(a, b).Select(x -> x * x * (x - 1) + 1).Where(y -> y.IsEven).Sum.Println

end.

№3

begin

 Range(10, 99).Where(n -> (n mod 10) * (n div 10) > 10).Println

end.