Некоторый алгоритм из одной цепочки десятичных цифр получает новую цепочку следующим образом. сначала - id577971920211231 от Sasha34634 31.12.2021 17:55

Question

Информатика: Некоторый алгоритм из одной цепочки десятичных цифр получает новую цепочку следующим образом. сначала вычисляется сумма всех цифр в цепочке. если сумма является нечетным числом, к цепочке справа дописывается цифра 1, в противном случае – цифра 0. все нули в цепочке заменяются на цифру 1. из полученной цепочки удаляется первая слева подцепочка, состоящая из последовательно идущих единиц. полученная таким образом цепочка является результатом работы алгоритма. например, если исходной была цепочка 5431,

Sasha34634 · Accepted Answer

Задача №1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer;
Begin
writeln ('Введите число');
readln(n);
writeln('Делители числа:');
for i := 1 to n div 2 do
if (n mod i) = 0 then begin
    write(i,' ');
end;
End.

Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
a, b, x, y, nod: integer;

begin
writeln('Введите a,b');
readln(a, b);
x := a;y := b;
while x <> y do
    if x > y
      then x := x - y
    else y := y - x;
nod := x;
writeln('NOD(', a, ',', b, ')=', nod);
end.

MOGZ ответил