// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
Информатика
1)Средство оъеденения людей по всему миру? интернет.
2)Антивирусное ПО для защиты Пк? Нортон
3)Без чего нет решения? Формулы
4)Файл или Папка, по другому? Объект
6)Без чего нет жизни у Пк? материнская плата
7)Программа для защиты ПК? Антивирус
8)Часть кода в html? тэг
10)Устройство ввода информации? Клавиатура
остальное не могу, и тут вопрос у меня не так поставлен
Ответ:
var a,b,k:integer;
begin
readln(a,b);
for k:=a to b do if(k mod 2=1) then write(k, ' ');
end.
Объяснение:
Надеюсь будет понятно!!!
№7
172₈=1*8²+7*8¹+2*8⁰=64+56+2=122₁₀
2ЕА₁₆=2*16²+14*16¹+10*16⁰=746₁₀
101010₂=1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+0*2⁰=32+0+8+0+2+0=42₁₀
10,1₂=1*2¹+0*2⁰+1*2⁻¹=2+0+0,5=2,5₁₀
243₆=2*6²+4*6¹+3*6⁰=72+24+3=99₁₀
№6
143,511₁₀=1*10²+4*10¹+3*10⁰+5*10⁻¹+1*10⁻²+1*10⁻³
143511₈=1*8⁵+4*8⁴+3*8³+5*8²+1*8¹+1*8⁰
143511₁₆=1*16⁵+4*16⁴+3*16³+5*16²+1*16¹+1*16⁰
1435,11₈=1*8³+4*8²+3*8¹+5*8⁰+1*8⁻¹+1*8⁻²
for i := 1 to n do a[i] := random(k), где n - число элементов массива, k - диапазон генерации случайных чисел