Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8
javascript:var x = prompt(), y = prompt(); alert(x >= -4 && x <= 4 && y >= 0 && (x < 0 ? y <= 4 + x : y <= 4 - x) ? "Принадлежит." : "Не принадлежит.");
Номер кратен 5 - это строки номер 5, 10, 15 и 20, т.е. от 5 с шагом 5.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(20,10);
Writeln('*** Исходный массив ***');
var E:=MatrRandom(m,n,1,99);
E.Println(3); Writeln(3*E.ColCount*'-');
var p:=BigInteger(1);
ForEach var i in Range(4,m-1,5) do
p:=E.Row(i).Where(t->t>4).Aggregate(p,(x,y)->x*y);
Println('Произведение равно',p)
end.
Ответ:
4
Объяснение:
1) 64 кбайт = 65536 байт = 524288 бит
2) 524288 : 4096 бит = 128 секунд
3) 128 * 256 = 32768 бит = 4096 байт = 4 кбайт
Ответ: 4 кбайт
1. из кбайтов в байты надо разделить на 1024, из байтов в биты надо разделить на 8.
2. Из битов в байты надо умножить на 8, из байтов в кбайты надо умножить на 1024...