Задать вопрос
27 сентября, 04:17

Написать программу в паскале: Дано натуральное число n. Заменить порядок следования цифр числа n на обратный.

+1
Ответы (2)
  1. 27 сентября, 04:27
    0
    Var a, N: integer;

    begin

    writeln ('Введите число') ;

    readln (N) ; a:=0;

    while N>0 do begin

    a:=a*10+N mod 10;

    N:=N div 10;

    end;

    writeln (a) ;

    readln;

    end.
  2. 27 сентября, 06:19
    0
    Var

    n, x:string;

    i:integer;

    begin

    write ('Введите число n: ') ;

    readln (n) ;

    for i:=length (n) downto 1 do x:=x+n[i];

    writeln ('Обратное число: ', x)

    end.

    или можно так:

    var

    n:string;

    begin

    write ('Введите число n: ') ;

    readln (n) ;

    writeln ('Обратное число: ', ReverseString (n))

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Написать программу в паскале: Дано натуральное число n. Заменить порядок следования цифр числа n на обратный. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы