Var a: array of integer; i, n, x, digit: integer; b1, b2: boolean; begin readln(n); setlength(a, n); for i := 0 to n - 1 do readln(a[i]); b1 := true; x := 1; digit := x; while b1 do begin if b2 then digit := x; inc(x); b2 := true; for i := 0 to n - 1 do begin if (abs(a[i]) < x) and (a[i] <> 0) then begin b1 := false;break; end else if a[i] mod x <> 0 then begin b2 := false;break; end end; end; write(digit); end.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 var n,k,d:integer; begin k:=0; repeat Write('Введите натуральное число, 0- завершить: '); Read(n); if n>0 then begin d:=(n mod 100) div 10; if (d=4) or (d=6) then Inc(k) end until n=0; Writeln('Искомых чисел - ',k) end.
i, n, x, digit: integer;
b1, b2: boolean;
begin
readln(n);
setlength(a, n);
for i := 0 to n - 1 do readln(a[i]);
b1 := true;
x := 1;
digit := x;
while b1 do begin
if b2 then digit := x;
inc(x);
b2 := true;
for i := 0 to n - 1 do begin
if (abs(a[i]) < x) and (a[i] <> 0) then begin b1 := false;break; end
else if a[i] mod x <> 0 then begin b2 := false;break; end
end;
end;
write(digit);
end.
var
n,k,d:integer;
begin
k:=0;
repeat
Write('Введите натуральное число, 0- завершить: ');
Read(n);
if n>0 then begin
d:=(n mod 100) div 10;
if (d=4) or (d=6) then Inc(k)
end
until n=0;
Writeln('Искомых чисел - ',k)
end.
Тестовое решение:
Введите натуральное число, 0- завершить: 345
Введите натуральное число, 0- завершить: 6285
Введите натуральное число, 0- завершить: 7854
Введите натуральное число, 0- завершить: 1324
Введите натуральное число, 0- завершить: 653
Введите натуральное число, 0- завершить: 66666
Введите натуральное число, 0- завершить: 0
Искомых чисел - 2