n = float(input('С какой скоростью шли богатыри? '))
r = float(input('Какое расстояние им предстоит преодолеть? '))
print('Время в пути (в минутах): ' + str(r/n))
Сжатие изображений — применение алгоритмов сжатия данных к изображениям, хранящимся в цифровом виде. В результате сжатия уменьшается размер изображения, из-за чего уменьшается время передачи изображения по сети и экономится пространство для хранения.
Сжатие изображений подразделяют на сжатие с потерями качества и сжатие без потерь. Сжатие без потерь часто предпочтительней для искусственно построенных изображений, таких как графики, иконки программ, либо для специальных случаев, например, если изображения предназначены для последующей обработки алгоритмами распознавания изображений. Алгоритмы сжатия с потерями при увеличении степени сжатия как правило порождают хорошо заметные человеческому глазу артефакты.
1)Функция
program fun;
function f(a : string) : string;
var
l:string;
begin
case a of
'Россия' : l:='Москва';
'Китай' : l:='Пекин';
'Франция' : l:='Париж';
else l:=('Введите страну из списка');
end;
f:=l;
end;
var
k: string ;
begin
writeln('Введите страну');
read(k);
writeln('Столица: ',f(k));
end.
2)Процедура
program fun;
procedure f(a : string) ;
var
l:string;
begin
case a of
'Россия' : l:='Москва';
'Китай' : l:='Пекин';
'Франция' : l:='Париж';
else l:=('Введите страну из списка');
end;
writeln(l);
end;
var
k: string ;
begin
writeln('Введите страну');
read(k);
f(k);
end.
Вот собственно и все, если нам нужно из десятичной перевести там в двоичную восьмеричную или в шестнадцатеричную, то просто ЕСЛИ ЧИСЛО ДАНО В ДЕСЯТИЧНОЙ СИСТЕМЕ СЧИСЛЕНИЯ, делим число на нужное значение, как решено в скриншоте.