Var A,x,d,k,p:integer;
Begin
WriteLn('f(x) = x^2 +x +41');
p:=0;
For x:= 1 to 39 do
Begin
A:=x*x+x+41;
Write('f(',x,') = ',A);
d:=2;
k:=0;
While (A<>0)and(d<A) do
Begin
if A mod d = 0 then k:=k+1;
d:=d+1
End;
if k = 0 then WriteLn(' - простое')
else
Begin
WriteLn(' - не является простым');
p:=1;
End
End;
if p = 0 then WriteLn('Все полученные числа - простые')
else WriteLn('Не все полученные числа являются простыми');
End.
Для первого примера я привел пример перевода из двоичной системы в десятичную. Второй пример можете сделать так же. Я не стал этого делать, ибо долго.
n = int(input('Введите количество чисел: '))
c = 0
print('Вводите',n,'чисел по очереди')
for i in range(1,n+1):
a = int(input())
if a % 2 != 0:
c += 1
print('Нечётные элементы составляют',c/(n/100),'процентов')
Ну практически во всех операционных системах имеется одноименная команда ping. Вводится эта команда в терминале, эмуляторе терминала, консоли, командной строке и т.п. Пример:
PING 192.168.1.24 (192.168.1.24): 56 data bytes
64 bytes from 192.168.1.24: icmp_seq=0 ttl=64 time=2.035 ms
64 bytes from 192.168.1.24: icmp_seq=1 ttl=64 time=0.581 ms
64 bytes from 192.168.1.24: icmp_seq=2 ttl=64 time=0.725 ms
64 bytes from 192.168.1.24: icmp_seq=3 ttl=64 time=0.561 ms
У меня в сети нет хоста с адресом
<span>192.168.104.1, поэтому продемонстрировал работу программы на имеющемся хосте.
Если хоста с таким адресом нет или он не отвечает, то получим такой вывод работы программы:
PING 192.168.104.1 (192.168.104.1): 56 data bytes
Request timeout for icmp_seq 0
Request timeout for icmp_seq 1
Request timeout for icmp_seq 2
Request timeout for icmp_seq 3
Request timeout for icmp_seq 4</span>
<em /><em /><em>VAR</em>
<em> a, b: LongInt;</em>
<em>BEGIN</em>
<em> Read(a, b);</em>
<em />
<em> If (a > b) then Write(a, ' > ', b)</em>
<em> Else If (b > a) then Write(b, ' > ', a)</em>
<em> Else Write(a, ' = ',b);</em><em> </em>
<em>END.</em>