<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
#include <iostream>
using namespace std;
int main() {
int s = 0, i = 20;
while(i < 100) {
s+=i;
i++;
}
cout << s << endl;
}
1.1 байт-8 бит.
1200:8=150(байт)
Ответ : 150 байт.