Program Vby_1; uses crt; var a,b,c:real; begin writeln('*** Alphaues is thinking... ***'); writeln('Ok, введите катеты: '); write('a= ');readln(a); write('b= ');readln(b); writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2); end.
Program Vby_2; uses crt; var a,b,h,t:real; begin writeln('*** Alphaues is thinking... ***'); writeln('Ok, введите данные: '); write('Одно основание = ');readln(a); write('Другое основание = ');readln(b); write('Высота = ');readln(h); t:=abs(a-b)/2; writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2); end.
Program Vby_3; uses crt; var s:integer; begin writeln('*** Alphaues is thinking... ***'); write('Ok, введите расстояние в сантиметрах: '); readln(s); write('Число полных метров = ',s div 100); end.
Const n=?; {Кол-во элементов в массиве, написать число вместо "?"} Var a,b:array[1..n] of integer; x,k,i,j:integer; Begin writeln('Init massive:'); for i:=1 to n do begin readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет} a[i]:=x; end; k:=n div 2; if (n mod 2)<>0 then k:=k+1; j:=1; for i:=(k+1) to n do begin b[j]:=a[i]; j:=j+1; end; if (n mod 2)<>0 then begin b[k]:=a[k]; k:=k-1; j:=j+1; end; for i:=1 to k do begin b[j]:=a[i]; j:=j+1; end; for i:=1 to n do write(b[i],' '); End.
Дизъюнкция
Объяснение: