program reverse;
var
n, m: integer;
begin
write('Введите число N: ');
read(n);
while (n > 0) do
begin
m := m * 10 + n mod 10;
n := n div 10;
end;
write('Перевернутое число: ', m);
end.
Объяснение:
program reverse; // Название программы
var
n, m: integer; // Создание целочисленных переменных по условию
begin // Начало программы
write('Введите число N: '); // Вывод сообщения в консоль
read(n); // Считываем число с клавиатуры
while (n > 0) do // Пока значение переменной n > 0 выполняем
begin // Начало цикла
m := m * 10 + n mod 10; // Вписываем в нужный разряд (m * 10) последнюю цифру введенного числа (n mod 10 - остаток от деления на 10)
n := n div 10; // Отделяем последнюю цифру от введенного числа путем целочисленного деления на 10
end; // Конец цикла
write('Перевернутое число: ', m); // Вывод ответа
end. // Конец программы
Анимации делать не умею и нечего не знаю вот код:
Объяснение:
program eg;
uses graph,crt;
var
y,x,i,n,d,m,j:integer;
begin
randomize;
detectgraph(d,m);
initgraph (d,m,' \TP\GRAPH');
for i:=1 to 300 do begin
cleardevice;
setcolor(12);
line(150,380-i,150,420-i);
line(170,380-i,170,460-i);
line(190,380-i,190,420-i);
setcolor(5);
for j:=1 to 200 do begin
putpixel(random(300) ,410-j, random(100) );
end;
setcolor(1 );
setbkcolor(15);
rectangle(120,160-i,220,380-i);
line(170,80-i,120,160-i);
line(170,80-i,220,160-i);
circle(170,210-i,35);
if i<100 then begin
line(120,280-i,80,380-i);
line(80,380-i,120,380-i);
line(120,280-i,120,380-i);
line(220,280-i,260,380-i);
line(220,380-i,260,380-i);
line(220,380-i,220,380-i);
end
else begin
delay (10);
end;
readkey;
end;
end.
