Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8
Алгоритм - это описание последовательности действии, которые нужны для решения задачи.
Объекты БД, их хранение СУБД Access ориентирована на работу с объектами БД, к которым относятся таблицы, запросы, формы, отчеты, страницы, макросы и модули
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.