writeln('Indexi elementov kotorie bolshe prediduschego:');
writeln;
for i:=2 to 10 do begin
if a[i]>a[i-1] then write(i,', ');
end;
for i:=2 to 10 do begin
if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;
end;
writeln;
if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami');
Var a,b:integer; Begin Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); if a mod b = 0 then WriteLn(b,' - делитель ',a) else WriteLn(b,' не является делителем ',a) End.
Вторая программа:
Var a,b:real; Begin WriteLn('a и b - катеты прямоугольного треугольника'); Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); WriteLn('S = ',a*b/2); WriteLn('P = ',Sqrt(a*a+b*b)+a+b); End.
Пример работы программы:
a и b - катеты прямоугольного треугольника a = 3 b = 4 S = 6 P = 12
Примечание: программа не проверяет, существует ли треугольник и является ли он прямоугольным.
Третья программа:
Var a,b,c,D:real; Begin WriteLn('ax^2 +bx +c = 0'); Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); Write('c = ');ReadLn(c); D:=b*b-4*a*c; if D < 0 then Write('Действительных корней нет') else Begin WriteLn('x1 = ',(-b-Sqrt(D))/(2*a)); WriteLn('x2 = ',(-b+Sqrt(D))/(2*a)); End End.
Четвёртая программа:
Var a,b,c:real; Begin Write('Введите три числа: ');ReadLn(a,b,c); a:=Abs(a-c); b:=Abs(b-c); if a < b then WriteLn('Первое число ближе к третьему') else if a > b then WriteLn('Второе число ближе к третьему') else WriteLn('Первое и второе число - одинаково близки к третьему') End.
Пример работы программы:
Введите три числа: 1 2 3 Второе число ближе к третьему
Введите три числа: 1 1 3 Первое и второе число - одинаково близки к третьему
Введите три числа: 2 1 13 Первое число ближе к третьему
var i,s,p:integer; a:array [1..100] of integer;
begin
s:=0; p:=0;
writeln('Vvedite masiv a:');
for i:=1 to 10 do begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i]>0 then s:=s+a[i];
end;
s:=s*2;
writeln('Udvoennaya suma polozhitelnih elementov=',s);
writeln('Indexi elementov kotorie bolshe prediduschego:');
writeln;
for i:=2 to 10 do begin
if a[i]>a[i-1] then write(i,', ');
end;
for i:=2 to 10 do begin
if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;
end;
writeln;
if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami');
readln(s);
end.