Язык не указан, решаю на qb, т.к он подходит по классу 5-9
INPUT A%
S$ = RIGHT$(STR$(A%),1)
PRINT S$
Плюсы:Если пишешь конспект,и т.д, то можно его написать в электронном виде,на компьютер можно установить игры и это буднт развлечением,на компьютер можно хранить важные документы,гапример в отднльной папке,а на папку поставить пароль,и они никуда не пропадут.
Минусы:портит зрение,жрет много электричества,игры иногда зптягивают и вызывают зависимость
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
<span>74 : 2 =
37 (остаток 0)</span>
37 : 2 = 18
(остаток 1)
18 : 2 = 9 (остаток
0)
9 : 2 = 4 (остаток
1)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
В ответе
записываем остатки с конца подсчетов
Ответ :
1001010
<span>
74(10)
= 1001010(2) </span>
23 : 2 = 11
(остаток 1)
11 : 2 = 5 (остаток
1)
5 : 2 = 2 (остаток
1)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ : 10111
<span>23(10) =
10111(2)</span>
17 : 2 = 8 (остатк
1)
8 : 2 = 4 (остаток
0)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ: 10001
<span>17(10) =
10001(2)</span>
2 : 2 = 1 (остаток
0)
1 : 2 = 0
(остаток 1)
Ответ: 10
<span>2<span>(10) </span>= 10(2) </span>