Атрибут - изменяемые свойства рисунка - длина,ширина,цветность.
Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр
1. Переданная информация в битах:
6400 килобайт * 1024 = 6553600 байт.
переведем в биты:
6553400 * 8 = 52428800 бит
2. Разберемся с избыточностью. По условию надо добавить 10% информации
52428800*1.1 = 57671680 бит передаем.
3. Рассмотрим пропускную способность канала
5 мегабит\секунду. переведем в килобиты:
5*1024 = 5120 килобит в секунду.
переведем в биты в секунду = 5120*1024 = 5242880 бит в секунду
4. Находим время передачи информации:
57671680 / 5242880 = 10.987
Ответ: Около 11 сек
Var
n,k:Integer;
Begin
Read(n,k);
n:=n*12;
k:=n*38;
Writeln(n+k);
end.