Вычислить f(x, y). Значения ху задаются с клавиатуры: (х – sin°у, если х f(x, y) = min(x,0), если х= у
х-у, если х> у

У этого термина существуют и другие значения, см. Ньютон.Исаак НьютонIsaac Newton
Портрет кисти Кнеллера (1689)Дата рождения:25 декабря 1642 (4 января 1643)Место рождения:Вулсторп, Линкольншир,Королевство АнглияДата смерти:20 марта 1727 (31 марта 1727)(84 года)Место смерти:Кенсингтон, Мидлсекс, Англия,Королевство ВеликобританияСтрана: Королевство Англия
 Королевство ВеликобританияНаучная сфера:физика, механика, математика,астрономияАльма-матер:Кембриджский университет(Тринити-колледж)ПодписьИсаак Ньютон на ВикискладеСэр Исаа́к Нью́тон (или Ньюто́н[K 1]) (англ. Sir Isaac Newton, 25 декабря 1642 года — 20 марта 1727 года по юлианскому календарю, действовавшему в Англии до 1752 года; или 4 января 1643 года — 31 марта 1727 года погригорианскому календарю) — английский физик, математик, механик и астроном, один из создателей классической физики. Автор фундаментального труда «Математические начала натуральной философии», в котором он изложил закон всемирного тяготения и три закона механики, ставшие основой классической механики. Разработал дифференциальное и интегральное исчисления, теорию цветаи многие другие математические и физические теории.

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел
2+4+6+...+198+200.

1. Самый короткий вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Writeln(Range(2,200,2).Sum)
end.

Результат:
10100

2. Более длинный и более "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=0;
  var i:=2;
  while i<=200 do begin
    s:=s+i;
    i:=i+2
    end;
  Writeln(s)
end.

3. Совсем "тупой школьный" вариант (решение "в лоб")

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 200 do
    if i mod 2 =0 then s:=s+i;
  Writeln(s)
end.

4. Улучшенный "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do s:=s+2*i;
  Writeln(s)
end.