Даю 100 БАЛЛОВ за решение 2х задач ** ПАСКАЛЕ! (10 класс)

Question

Даю 100 БАЛЛОВ за решение 2х задач на ПАСКАЛЕ! (10 класс)

---

Answer 1

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,f:integer;
  Write('Введите a,b: '); Read(a,b);
  for var x:=a to b do begin
    if x<=-3 then f:=5*x*x+x<br>    else
      if x<1 then f:=x*x-2<br>      else f:=2*x-1;
    Writeln(x:5,f:10)
    end
end.

Пример
Введите a,b: -6 10
   -6       174
   -5       120
   -4        76
   -3        42
   -2         2
   -1        -1
    0        -2
    1         1
    2         3
    3         5
    4         7
    5         9
    6        11
    7        13
    8        15
    9        17
   10        19

begin
  var n:=ReadInteger('N=');
  Writeln('S=',Range(2,n).Aggregate(0.0,(i,j)->i+(1-3*j)/(2*(j-1))))
end.

Пример
N= 10
S=-16.3289682539683

Answer 2

//first

var
a, b, i: longint;

function f (x1: longint):longint;
var i: longint;
begin 
  if x1<=-3 then f:=5*sqr(x1)+x1    <br>      else     
          if x1 in [-3..0] then f:=sqr(x1)-2     
                 else      f:=2*x1-1;
end; 

begin
writeln ('Введите a, b: ');
readln (a, b); 
for i:=a to b do writeln ('f(', i:3, ') = ', f(i));
end.

//second
varn, j: longint;
sum: real;

function f(I: longint):real;
begin
f:=(1-3*i)/(2*(i-1));
end;

begin
write ('Введите n: ');
readln (n); 
for j:=2 to n do sum:=sum+f(j);
write ('Сумма: ', sum);
end.

Comments

Когда-то имел весьма солидную популярность, но сейчас ее полностью потерял, сохранившись в основном в виде Delphi для учебных и академических целей. Язык невозбранно привлекает возможностью писать почти как на обычном английском языке, а не ломать голову и пальцы о ++i + ++i, эзотерику истинности выражений (1/3 == 0) и (-1 > (unsigned int) 1) и прочих извращенных приёмов, принятых в C-подобных языках.