Регистрация
22jully14
22.12.2021 13:15
Информатика
Есть ответ 👍

Информатика 5 класс ответить на вопросы​

195
299
Посмотреть ответы 1

Ответы на вопрос:

TimLih990
TimLih990
4,7(63 оценок)

var?

    n, m: longint;

    a: byte;

begin

    readln(n);

    m : = 0;

    while n> 0 do begin

        a : = n mod 10;

        n : = n div 10;

        m : = m*10 + a;

    end;

    writeln(m);

 

readln;

end.

Популярно: Информатика