Вводится число. требуется вывести его так, чтобы составляющие его цифры шли в обратном порядке. например, - id243911620210214 от medusya 14.02.2021 07:44

Question

Информатика: Вводится число. требуется вывести его так, чтобы составляющие его цифры шли в обратном порядке. например, вводится число 4096, надо вывести 6904.если найти остаток от деления на 10, то мы получим последнюю цифру числа.запишем эту цифру в новое число.разделим старое число нацело на 10, так мы избавимся от последней цифры в нем.снова найдем остаток от деления на 10. получим вторую с конца цифру исходного числа.если мы умножим новое число на 10, то получим дополнительный младший разряд, куда можем

medusya · 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 ответил