Т.к 30 символов, то умножаем на 2 и получаем 60 байт.Теперь умножаем на 8 и получаем 480бит.
Ответ:2
Все еще проще можно написать
1.
Program chislo;
var i,s:Integer;
begin
i:=100;
while i<=999 do
begin
if (i mod 2 <> 0) then s:=s+i;
Inc(i);
end;
Writeln(s);
end.
2. Число в обратном порядке (ввод с клавиатуры)
Program sum_3;
var n,s:Integer;
begin
Read(n);
while(n>0) do
begin
s:=n mod 10;
n:=n div 10;
Write(s);
end;
end.
Var a: integer;
begin
readln(a);
if (a>9) and (a<100) and (a mod 7=0)
then write('число кратно 7') else
if (a mod 7=0) then
write('число не двузначное, но кратно семи')
else write('число не кратно 7');
end.
Ответ:
Первое слово - программа
Второе - разряд
Третье - байт
Суммарное количество гласных-6
А2= 29, А8 = 116, А16=529
Перевод в десятичную очень просто каждый разряд, если считать с конца обозначает степень системы счисления, в порядке увеличения умноженное на число под эти разрядом вот например (164(8) = (8 в нулевой*4) + (8 в первой * 6) + (8 в квадрате * 1) = 1 + 48 + 64 = 116 )