Program enot; VAR a: array [1..5] of integer; i,b: integer; begin for i:= 1 to 5 do a[i]:= random(51)-25; for i:= 1 to 5 do write(a[i],' '); writeln(); for i:= 1 to 5 do if a[i]<0 then begin b:=a[i]; break end; for i:= 1 to 5 do if a[i]<>b then write(' ', a[i]); end.
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.
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.
VAR a: array [1..5] of integer;
i,b: integer;
begin
for i:= 1 to 5 do
a[i]:= random(51)-25;
for i:= 1 to 5 do
write(a[i],' ');
writeln();
for i:= 1 to 5 do
if a[i]<0 then
begin b:=a[i];
break
end;
for i:= 1 to 5 do
if a[i]<>b
then
write(' ', a[i]);
end.