Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.
Ответ дал: Гость
n = 64 - 32 = 32
i = log₂ 32 = 5 бит
количество вопросов, которые нужно задать равно 5
Ответ дал: Гость
microsoft visual basic 2010(более ранние тоже прокатят)
dim i as single private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load i = val(inputbox("введите число")) if i > = 0 then i = i - 50 else i = i + 100 end if msgbox(i) end sub
просто на basic
dim i as single
input(i)
if i > = 0 then i = i - 50 else i = i + 100 end if
print i
end
Ответ дал: Гость
1. заливаем в бочку 5 литров. 2. зачерпываем 5литровым и выливаем в 9-литровое ведро. 3. снова зачерпываем 5 литровым и льём в 9-литровое доверха. в 5-литровом остаётся 1 литр. его выливаем в бочку к уже там находящимся 5 литрам. итог - 6 литров.
Популярные вопросы