Program DaNNuu;
uses crt;
const n=3;
var
a:array [1..n] of integer;
i,j,min,temp:integer;
begin
randomize;
{создание массива}
writeln('Элементы массива:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i]:5);
end;
{сортировка массива}
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
if a[min]>a[j] then
min:=j;
temp:=a[i];
a[i]:=a[min];
a[min]:=temp;
end;
writeln();
{вывод массива}
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i]:5);
end.
Объяснение:
var N, ans, digit: integer;
begin
readln(N);
for var i := 0 to 4 do
begin
digit := N div round(power(10, i)) mod 10;
if digit mod 2 = 0 then
digit := digit + 1;
ans := ans + digit * round(power(10, i));
end;
writeln(ans);
end.
Объяснение:
Считываем числоВ цикле 5 раз для каждой цифры:Определяем эту цифру целочисленным делением на 10 в соотв. степени и взятием остатка от деления на 10Если цифра четная, то добавляем к ней 1К переменной ответа добавляем новую цифру, домноженную на соотв. степеньВыводим ответ
40*60=2400 символов
2400*8=19200 бит-информационный вес
1924145348608/19200=100215903 страницы