<span>var
a, b, c: integer;
begin
Read(a, b, c);
if ((a > b) and (a > c) and (b > c)) Then
Write(a, ' ', b, ' ', c)
else
if ((b > a) and (b > c) and (a > c)) Then
Write(b, ' ', a, ' ', c)
else
if ((c > a) and (c > b) and (a > b)) Then
Write(c, ' ', a, ' ', b)
else
if ((b > a) and (b > c) and (c > a)) Then
Write(b, ' ', c, ' ', a)
else
Write(c, ' ', b, ' ', a)
end<span>.</span></span>
1) Дано число. Получить новое число с обратным значением цифр , где 0→9, 1→8, 2→7, 3→6, 4→5, а цифры 5, 6,7,8,9 не изменяются .
dy
Var a,h:longint;
b:integer;
begin
writeln ('введи число');
readln (a);
while a>0 do begin
b:=a mod 10;
case b of
0: b:=9;
1: b:=8;
2: b:=7;
3: b:=6;
4: b:=5;
end;
h:=h*10+b;
a:=a div 10;
end;
a:+0;
while h>0 do begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.
Можно сказать точно, если изображение без сжатия (типа bmp)
На один пиксел приходилось 9 бит, теперь требуется 3, следовательно в 3 раза
<em>Программа на СИ.
Надо чтобы здесь было как минимум 20 символов.</em>
Procedure KolDel(n:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then k:=k+1;
end;
var m,n,i:longint;
md,mx:integer;
begin
repeat
writeln('Введите интервал, 2 натуральных числа, второе больше первого');
readln(m,n);
until n>m;
mx:=1;
for i:=m to n do
begin
KolDel(i,md);
if md>mx then mx:=md;
end;
writeln('Наибольшее количество делителей имеют числа:');
for i:=m to n do
begin
KolDel(i,md);
if md=mx then write(i,' ');
end;
writeln;
write('количество=',mx);
readln
end.
Пример:
<span>Введите интервал, 2 натуральных числа, второе больше первого
10 100
Наибольшее количество делителей имеют числа:
60 72 84 90 96
количество=12</span>
