<u>PascalABC.NET 3.2, сборка 1379 от 21.01.2017</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,k):=(ReadInteger('n='),1);
Write('Делители: ');
for var i:=1 to n div 2 do
if n mod i=0 then begin Print(i); k+=1 end;
Writeln(n);
if k=2 then Writeln('Число простое')
end.
<u>Примеры</u>
n= 97
Делители: 1 97
Число простое
n= 45
Делители: 1 3 5 9 15 45
Uses GraphAbc; begin SetWindowSize(300,200); SetPenWidth(4); SetPenColor(clRed); Line(120,40,160,120); SetPenColor(clBlue ); Line(160,120,60,160); SetPenColor(clGreen); Line(60,160,120,40); end.
Ответ:
1024 байта = 1 Кбайт
2048 бит = 0,25 Кбайт
Объяснение:
2048 бит = 2048 / 8 / 1024 = 0,25 Кбайт
Опредилите, какие значения принимают выражения, если
А=1; В=0; С=0
1)0
2)1
3)0
4)0