Ответ:
Объяснение:
Решение в прикрепленных файлах:
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.
1. 0,7 м/б =0,00068359375 г/б
<span>2) Сколько Мбайт в 2 Гбайт = 2000 м/б
</span>
3) 1 Кбайт = __1024_ байт = __8192____бит,
4) 2 Кбайт = _2048____ байт =__16384____бит,
5) 24576 бит =__3072___байт =__3___Кбайт,
6) 512 Кбайт = __524288_ байт =___4194304__бит.
7) 1024 бита =__128__байт
8) 2048000 бит = __2000___Кб
9) 15 Кб = _15360___бит
10) 10 байт = __80__бит
var a: array [1...n] of integer;
j, k, max: integer:
begin
for j:=1 to n do
readln(a[j]);
sum:=0
For j:=1 to n do
if a[j]mod=0 then sum:=sum*a[j]
Writeln(sum);
end.