DELPHI_ZADACHI!

[Worldboss777]

СРОЧНО! Аттестация! Решить 3 простые задачки по Delphi
Ребята, сори если что не так прошу, но у меня 20 числа аттесстация по информатике! 1 курс специальность ИСТ(информационные системы и технологии) не успеваю сдать все задачи, помогите с решением в delphi-console application

1- вычислить ветвящийся алгоритм


2- Вычислить конечный ряд цикла


3- Точка и область


спасибо всем, кто моможет!

[Stilet]

Первые две:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
  var a,z:double;n:integer;
begin
 a:=3;z:=5;
 // Первая задача
 if 2<5 then writeln(ln(abs(2+a)));
 if 2>6 then writeln(abs(a)+0.5*abs(2*a-z));
 writeln;

 // Вторая
 a:=0;
 for n:=1 to 100 do begin
  a:=a+Power(-1,n-1)*1/(n*n);
 end;
 writeln(a);
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.

В следующий раз тему называй адекватно, ато закрою.

[Worldboss777]

Stilet, огромно спасибо!!!!!

насчет названия понял!