Опубликовано 03.01.2018 по предмету Информатика от Гость

Напишите программу, которая "переворачивает" заданное натуральное число.
Очень нужно :с

Ответ оставил Гость

Код в Паскале:
uses crt;
var n,k:integer;
begin  clrscr;
write(Введите число: ); readln(n);
repeat
k:=k*10+(n mod 10);
n:=n div 10;
until(n=0);
writeln(Обратный порядок: , k);
readln;
end.
Копировать тут(без скобок):
{ 
uses crt;var n,k:integer;beginclrscr;write(Введите число: ); readln(n);repeatk:=k*10+(n mod 10);n:=n div 10;until(n=0);writeln(Обратный порядок: , k);readln;end. }

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы
Самые новые вопросы