1 Кб=1024 байт , 1 байт=8 бит, умножаем 1024*8 и получим 1 Кб
1 Кб=8192 бит
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
Ж- полужирный
к- курсив
ч- подчеркивание
Модель - это :
c) Упрощенное представление о реальном процессе или явлении ;
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger('Введите число элементов');
var k:=ReadInteger('Введите число k');
var a:=ArrRandom(n,10,99);
a.Println;
for var i:=0 to n-1 do
if a[i] mod k =0 then println('Кратно',k,a[i]);
end.