Линейные, ветвящиеся, циклические задачи

[Vele's]

Благодарю того доброго человека, кто поможет сделать и если возможно, объяснить.

Вариант 20.

Линейные:

Ветвящиеся:

Циклические:

[Vele's]

Могу скинуть на телефон деньги, пишите сколько. В личку.

[interacia]

Если готовы платить то вам сюда (http://www.programmersforum.ru/forumdisplay.php?f=29).
А здесь (http://interacia.net/index.php/2011-...2/begin40.html) добрая половина ваших задач выложена.

Циклические 2

Program Begin1;
var
i,n:integer;
Sum:real;
Factor:real;
Step:real;
begin
Writeln('Введите n=');
readln(n);
Step:=1000;
Factor:=1;
Sum:=Step/Factor;
for i:=2 to n do
 begin
Step:=Step*1000;
Factor:=Factor*i;
Sum:=Sum+Step/Factor;
 end;
Writeln('Ответ =',Sum);
end.

Линейные 3 задание здесь задача Boolean 28.



здесь задача Boolean 28.

Program Begin1;
var
a,b,c:integer;
begin
Writeln('Введите A=');
readln(a);
Writeln('Введите B=');
readln(b);
Writeln('Введите C=');
readln(c);
Writeln('Ответ =',abs(a-c)*abs(b-c));
end.