Дано четырехзначное число найдите число полученное при прочтении его цифр справно налево

Question

Информатика

Ируша

3 сентября, 14:28

Дано четырехзначное число найдите число полученное при прочтении его цифр справно налево

+1

Ответы (1)

Знаете ответ на вопрос?

Лана · Answer 1

Предполагается, что число положительное.

var

n:integer;

begin

Write ('n=') ; Read (n) ;

while n>0 do begin

Write (n mod 10) ;

n:=n div 10

end

end.

Пример

n=3607

7063