1.
var a,b,i,n,min:integer;
begin
writeln('Input value');
read(a);
min:=a;
for i:= 1 to 2 do begin
writeln('Input value');
read(a);
if min>a then min:=a;
end;
writeln('min = ',min);
<span>end.
2.
var a,b,c:integer;begin
writeln('Input a');
read(a);
writeln('Input b');
read(b);
writeln('Input c');
read(c);
a:=a*b*c;
writeln('prod = ',a);
end.<span>
</span></span>
Нет, не равны (наверно). Так как число 999 на два без остатка не делится. (Наверно это правильно)
1 Байт = 8 Бт
1 Килобайт = 8 кБт
1 Мегабайт = 8 мБт
1 Гигабайт = 8 гБт
Формула:
Бт = Байт * 8;
кБт = Килобайт * 8;
мБт = Мбайт * 8;
гБт = Гбайт * 8.
//Прошу прощения за "пузырёк"
//Pascal ABC.NET 3.1 сборка 1219
Const n=5; //количество вершин
Type
ty=record
x:integer;
y:integer;
end;
Var
ar:array[1..n] of ty;
i,j:integer;
begin
for i:=1 to n do
begin
write('Абсцисса точки №',i,':');readln(ar[i].x);
write('Ордината точки №',i,':');readln(ar[i].y);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i].x>ar[j].x then swap(ar[i],ar[j]);
for i:=1 to (n div 2)-1 do
for j:=i+1 to n div 2 do
if ar[i].y<ar[j].y then swap(ar[i],ar[j]);
for i:=n div 2+1 to n-1 do
for j:=i+1 to n do
if ar[i].y>ar[j].y then swap(ar[i],ar[j]);
ar.reverse.Print;
end.
Пример ввода:
Абсцисса точки №1:1
Ордината точки №1:2
Абсцисса точки №2:2
Ордината точки №2:1
Абсцисса точки №3:-3
Ордината точки №3:-3
Абсцисса точки №4:3
Ордината точки №4:3
Абсцисса точки №5:3
Ордината точки №5:1
Пример вывода:
(3,3) (3,1) (2,1) (-3,-3) (1,2)