//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a:array[1..n] of integer; i,j:integer; begin // Заполним массив сл. числами for i:=1 to n do begin a[i]:=random(0,99); write(a[i]:4); end; writeln; //сортировка массива по убыванию последней цифры. for i := 1 to n-1 do for j := 1 to n-i do if (a[j] mod 10) > (a[j+1]mod 10) then swap(a[j],a[j+1]); writeln('Отсортированный массив : '); for i:=1 to n do write(a[i]:4); end.
4. var a:real; begin write('Введите количество мегабайт=');read(a); writeln('Количество килобайт=',a*1024); writeln('Количество байт=',a*1024*1024); writeln('Количество бит=',a*1024*1024*8); end.
5. var a,b,c,p,S:real; begin write('Введите сторону a=');read(a); write('Введите сторону b=');read(b); write('Введите сторону c=');read(c); P:=(a+b+c)/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); write('S=',s:5:2); end.
6. var a:integer; begin write('Введите количество суток=');read(a); writeln(24*a,' ','часов'); writeln(60*24*a,' ','минут'); writeln(60*60*24*a,' ','секунд'); end.
const n = 10;
var a:array[1..n] of integer;
i,j:integer;
begin
// Заполним массив сл. числами
for i:=1 to n do begin
a[i]:=random(0,99); write(a[i]:4);
end;
writeln;
//сортировка массива по убыванию последней цифры.
for i := 1 to n-1 do
for j := 1 to n-i do
if (a[j] mod 10) > (a[j+1]mod 10) then
swap(a[j],a[j+1]);
writeln('Отсортированный массив : ');
for i:=1 to n do write(a[i]:4);
end.
Тестовое решение:
14 60 69 6 10 77 66 67 44 84
Отсортированный массив :
60 10 14 44 84 6 66 77 67 69
var
a:real;
begin
write('Введите количество мегабайт=');read(a);
writeln('Количество килобайт=',a*1024);
writeln('Количество байт=',a*1024*1024);
writeln('Количество бит=',a*1024*1024*8);
end.
5.
var
a,b,c,p,S:real;
begin
write('Введите сторону a=');read(a);
write('Введите сторону b=');read(b);
write('Введите сторону c=');read(c);
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',s:5:2);
end.
6.
var
a:integer;
begin
write('Введите количество суток=');read(a);
writeln(24*a,' ','часов');
writeln(60*24*a,' ','минут');
writeln(60*60*24*a,' ','секунд');
end.