Function IsPrime(n: integer): boolean;
// Проверка, является ли число простым
var
p: integer;
found: boolean;
begin
found := (n mod 2 = 0);
p := 3;
while (not found) and (sqr(p) <= n) do
begin
found := (n mod p = 0);
p := p + 2
end;
IsPrime := (not found) or (p = 2)
end;
const
n = 20;
var
i, k: integer;
a: array[1..n] of integer;
begin
Write('Введите 20 целых чисел через пробел: ');
for i := 1 to n do
begin
Read(a[i]);
end;
k := 0;
for i := 1 to n do
if IsPrime(a[i]) then k := k + 1;
Writeln('Количество простых чисел- ', k)
end.
Тестовое решение:
Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6
111111111111000000000000<u /> в 2 с.сч
1) Действие
(FFF000)16→0*
+0*
+0*
+15*
+15*
+05*
=
2) Действие
16773120:2=0
8386560:2=0
4193280:2=0
2096640:2=0
1048320:2=0
524160:2=0
26080:2=0
131040:2=0
65520:2=0
32760:2=0
16380:2=0
32760:2=0
16380:2=0
8190:2=0
4095:2=1
2047:2=1
1023:2=1
551:2=1
255:2=1
127:2=1
63:2=1
31:2=1
15:2=1
7:2=1
3:2=1
1:2=1
Ответ смотри с низу верх.
1 символ это 1 байт. За 1 мин он прочитывает 160 байт информации.
За 0,5 мин = 30 сек он прочтет 80 байт.
80 бит = 10 байт он прочтет за
30/8 = 15/4 = 3 3/4 сек = 3,75 сек.
const n=5;
a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');
var i,m,mi: integer;
begin
m:=length(a[1]);
mi:=1;
for i:=2 to n do if length(a[i])>m then
begin
m:=length(a[i]);
mi:=i
end;
writeln;
writeln(a[mi])
end.