На паскале:
program zz;
var a,b,i,n: integer;
begin
n:=5;
write('A='); readln(A);
write('B='); readln(B);
for i:=1 to n do
begin
A:=A+1;
B:=B*2;
end;
writeln('A=', A);
writeln('B=', B);
end.

0 0

4 года назад

Пожалуйста, срочно помогите составить блок - схему: найти S и P равнобедренной трапеции с основаниями a и b (a>b) и острым уг

Alexus228 [7]

Var a, b, h, k, m, s, p, alpha:real;
begin
read(a, b, alpha);
k:=(a-b)/2;
h:=tan(alpha)*k;
m:=Sqrt(sqr(k)+sqr(h));
p:=a+b+2*m;
s:=(a+b)*h/2;
writeln('Высота равна: ', h);
writeln('Боковые стороны равны: ', m);
writeln('Периметр равен: ', p);
writeln('Площадь равна: ', s)
end.

0 0

4 года назад

Помогите, пожалуйста, написать программу в Паскале! Задано 2n целых чисел. Требуется разбить их на пары, так, чтобы сумма произв

TheBiks

Var
n,i,j,c:integer;
mas:array[1..999] of integer;

begin
readln(n);
for i:=1 to 2*n do
readln(mas[i]);
//Группируем массив в порядке возрастания
for i := 1 to 2*n-1 do<span>
for j := 1 to 2*n-i do
if mas[j] > mas[j+1] then
begin
c := mas[j];
mas[j] := mas[j+1];
mas[j+1] := c;
end;
writeln('Оптимальные пары:');
for i:=1 to 2*n do
begin
if i mod 2 = 1 then
write(mas[i],' и ');
if i mod 2 = 0 then
writeln(mas[i]);
end;
</span>end.

0 0

4 года назад