Question

35 баллов информатика 10 класс
Питон/паскаль
Задача А максимум

Answer 1

Ответ:

pascal

Объяснение:

program maximum;

var

 a, b, x, max: integer;

begin

 Write('Введите X = ');

 ReadLn(x);

 for a := -20 to 20 do

   for b := -20 to 20 do

     if (-a * b + 5 * x) > max then max := -a * b + 5 * x;

 WriteLn('Максимально значение равно ', max);

end.