задачи в паскале

Ответ от Kaiu[гуру]
для 2 можно так допустим
program n2;
var
a : array[1..3] of Integer;
min, max, i : Integer;
begin
ReadLn(a[1],a[2],a[3]);
min := a[1];
max := a[1];
for i:=1 to 3 do
begin
if a[i] < min then min := a[i];
if a[i] > max then max := a[i];
end;
WriteLn(min+max);
end.
3 проще, если сложно 2 задача, хотя можно простыми иф и елсе ее расписать
program n3;
var
x,y : Real;
n, i : Integer;
begin
Write('x='); ReadLn(x);
Write('n='); ReadLn(n);
for i:=1 to n do y:=y+1.0/(x+i);
WriteLn(y);
end.
МОДИФИЦИРОВАННЫЙ
program n2;
var
a, b, c : Integer;
min, max : Integer;
begin
ReadLn(a,b,c);
min := a;
max := a;
if b < min then min := b;
if c < min then min := c;
if b > max then max := b;
if c > max then max := c;
WriteLn(min+max);
end.
kaiu
(51751)
Ну на 3 задачу:
program n3;
var
x,y : Real;
n, i : Integer;
begin
Write('x='); ReadLn(x);
Write('n='); ReadLn(n);
for i:=1 to n do y:=y+1.0/(x+i);
WriteLn(y);
end.
Она проще