var
a:integer;
begin
readln(n);
writeln('Сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
end.
var
a:integer;
begin
readln(n);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
end.
Адрес (в часть .3.212 перед 3 точка лишняя):
212.123.212.42
БВАГ
Вот так:
Магнитная дискета: 2880 килобайт (это последние разработки этих носителей)
CD ( порядка 700-800 мб)
DVD ( от 4 до 17гб)
<span>Blu - Ray ( где-то 23.3ГБ - 33 гб однослойные и 46,6 - 66гб двухслойные ) - это 120мм, диски) объем же 80мм (7,8 Гб однослойные, двуслойные 15,6 Гб) </span>
В условии задачи подразумевается, что "специальное устройство" записывает информацию в двоичной системе счисления. Используя формула <span>N=2i (обратная формула Хартли), найдем <span>i (</span>кол-во необходимых бит) при которой <span>N </span>будет равна или больше 119. Получается, необходимо 7 бит, что дает 128 вариантов (6 бит будет мало, т.к. это даст только 64 варианта). Соответственно, для записи номера одного спортсмена потребуется 7 бит. Поскольку промежуточный финиш прошли 70 велосипедистов, то информационный объем сообщения составит 70*7 бит=490 бит.</span>
Ответ: 490 бит.
Массив вводится с клавиатуры через пробел 15 элементов
var
a:array[1..15]of integer;
i,j,buf:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=1 to 14 do
for j:=i+1 to 15 do
if (a[i]<>0)and(a[j]<>0) then
if a[i]>a[j]then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
writeln;
for i:=1 to 15 do
write(a[i]:4);
end.