// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
<u><em>Тестовое решение:</em></u>
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)
Vara: array [1..10] of integer;
b:string;
c,i:integer;
begin
Randomize;
for i:=1 to 10 do begin
a[i]:=Random(5);
write(a[i]);
end;
b:='';
c:=0;
for i:=1 to 10 do
if (pos(inttostr(a[i]),b) =0) then begin b:=b+inttostr(a[i]); inc(c); end;
writeln(c);
end.
<span>//ABC Pascal
</span>
Высказывание содержит 57 символов (с учетом пробелов и знаков препинания). ⇒ Объем = 57*1 = 57 (байт) = 57*8 бит = 456 бит
package main
import "fmt"
import "math"
import "flag"
func main() {
var N int
flag.IntVar(&N, "N", 100, "")
numb := make([]bool, N)
limit := int(math.Sqrt(float64(N))) + 1
for i := 2; i < limit; i++ {
if !numb[i] {
for j := i * i; j < N; j += i {
numb[j] = true
}
}
}
for i := 2; i < N; i++ {
if !numb[i] {
fmt.Printf("%d\n", i)
}
}
}