Вопрос по информатике:
Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321).
pascal цикл while или repeat
Пожаловаться
- 05.06.2018 00:34
- Информатика
- remove_red_eye 11231
- thumb_up 35
Ответы и объяснения 2
Program n1;
var
n, a, m: longint;
begin
write('введите число: ');
readln(n);
m := 0;
while n>0 do begin
a := n mod 10;
n := n div 10;
m := m*10 + a;
end;
writeln('перевернутое число: ',m);
end.
var
n, a, m: longint;
begin
write('введите число: ');
readln(n);
m := 0;
while n>0 do begin
a := n mod 10;
n := n div 10;
m := m*10 + a;
end;
writeln('перевернутое число: ',m);
end.
Пожаловаться
- 06.06.2018 17:55
- thumb_up 48
Var
n, nn : integer;
begin
repeat
write ('Введите число, не оканчивающиеся на 0: ')
readln (n);
until (n mod 10)0;
while n>0 do
begin
nn:=nn*10+(n mod 10);
n:=n div 10;
end;
write (nn);
end.
n, nn : integer;
begin
repeat
write ('Введите число, не оканчивающиеся на 0: ')
readln (n);
until (n mod 10)0;
while n>0 do
begin
nn:=nn*10+(n mod 10);
n:=n div 10;
end;
write (nn);
end.
Пожаловаться
- 07.06.2018 07:10
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы