#include <iostream>
using namespace std;
int MinDivisor (int n)
{
int i = 2, min_den = 1;
while (i <= n/2)
{
if (n % i == 0)
{
min_den = i;
break;
}
i++;
}
return min_den;
}
int main() {
int n, min;
cin >> n;
min = MinDivisor(n);
if (min == 1)
cout << n;
else
cout << min;
return 0;
}
Пример:
169
13
Что такое бит?Если говорить по-простому, то бит - это единица информации. Может принимать два значения - в информатике это "1" или "0". "Истина" или "Ложь". "True" or "False". В электронике "1" и "0" отличаются величиной напряжения. Так по величине напряжения любое устройство может понять "1" ему прислали или "0".Итак:Бит может принимать значения: 1 или 0<span>Что же такое <span>байт1</span>?</span>Это величина информации равная 8 битам. Т.е. 1 байт это 8 последовательных "1" или "0" (битов). Например:000000011010101011111010<span>И т.п... Так "1" и "0" можно переставлять местами 256 различными способами. И байт может принимать 28 = 256 различных значений.</span>
Progran BiFi;
Const n=10;
Var a:array[1..n] of real;
i:integer;
Begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
readln;
for i:=1 to n do begin a[i]:=a[i]*2;
writeln(a[i]);
end;
readln;
end.
33₄ = 3×4+3 = 15; 21₇ = 2×7+1 = 15 - верно
33₈ = 3×8+3 = 27; 21₄ = 2×4+1 = 9 - неверно
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Положительных- ',
ReadSeqReal(ReadInteger('n=')).Where(t->t>0).Count)
end.
<u>Пример</u>
n= 6
2.3 -1.15 0 4.9 6 -10
Положительных- 3
begin
while true do begin
var a:=ReadInteger;
if a=0 then break;
Writeln(a)
end
end.
<u>Пример</u>
12
12
18
18
41
41
4
4
0
begin
var a:=ReadReal('a=');
var a2:=a*a;
Writeln('a^7=',a*a2*Sqr(a2))
end.
<u>Пример</u>
a= 3.26
a^7=3913.1203087558