1) Тут в смысле надо тебе интеграл найти если да, то
Program Pr2;
uses crt;
procedure arifm(a,b:integer;var s:real);
begin
s:=(a+b)/2;
end;
procedure proiz(var a,b,c:integer);
var i,m1,m2:integer;
begin
m1:=1;m2:=1;
for i:=1 to a do m1:=m1*i;
for i:=1 to b do m2:=m2*i;
if m1>m2 then c:=m1
else c:=m2;
end;
var a,b,c:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
writeln(s);
proiz(a,b,c);
writeln(c);
end.
2)
Program Pr1;
uses crt;
procedure arifm(var a,b:integer;s:real);
begin
s:=(a+b)/2;
writeln(s:8:3);
end;
var a,b:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
end.
Паскаль
1)Program abc; Uses crt;
var S:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
begin
S:=0;
For i:=1 to 10 do
For j:=1 to 10 do
if i=j then S:=S+a[i,j];
write('Сумма равна',S)
end.
2)
Program abc; Uses crt;
var min:integer; a:array [1..10,1..10];
begin
For i:=1 to 10 do
For j:=1 to 10 do
read(a[i,j]);
writeln;
min:=a[1,1];
For i:=1 to 10 do
For j:=1 to 10 do
if a[i,j]<min then min:=a[i,j];
writeln('Минимальный элемент равен',min);
end.
Интернет - это Всемирная паутина, глобальное информационное пространство. История появления и развития этой мировой паутины яркая и необычная, ведь уже через 10 лет после своего появления она завоевала множество организаций и стран, которые стали активно пользоваться сетью для работы. Вначале интернет служил исключительно группам исследователей и ученых, вскоре в эту группу втиснулись военные, а после – бизнесмены. После этого популярность интернета быстро разрослась. Пользователей соблазнила быстрота передачи информации, дешевая глобальная связь, множество легких и доступных программ, уникальная база данных и т.д. Естественно, это удобно для фирм, у которых есть филиалы в разных точках земного шара, для транснациональных корпораций, а также для управленческих структур.