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

Question

Информатика

Филиппия

2 сентября, 04:46

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

+5

Ответы (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