5европейских государств в алфавитном порядке

германия

испания

 

португалия

франция

чехия

1. современный вариант // pascalabc.net 3.2, сборка 1359 от 11.12.2016 // внимание! если программа не работает, обновите версию! begin   print(range(1.0,5.0,floor((5-1)/0.(x-> x*x-3*x+ln() end. результат 11.6094379124341 2. школьный вариант (ну вот так у нас в школах учат! ) var   x,y,max: real; begin   max: =-1000;   x: =1;   while x< =5 do       begin       y: =sqr(x)-3*x+ln(x);       if max< y then max: =y;       x: =x+0.5       end;   write(max) end.

// pascalabc.net 3.2, сборка 1359 от 11.12.2016 // внимание! если программа не работает, обновите версию! begin   var a,b: integer;   var h: real;   write('введите a,b,h: '); read(a,b,h);   var x: =real(a);   while x< =b do begin       writeln(x,'  ',x*x);       x: =x+h       end; end. пример введите a,b,h: 10 20 0.5 10  100 10.5  110.25 11  121 11.5  132.25 12  144 12.5  156.25 13  169 13.5  182.25 14  196 14.5  210.25 15  225 15.5  240.25 16  256 16.5  272.25 17  289 17.5  306.25 18  324 18.5  342.25 19  361 19.5  380.25 20  400