Дано натуральное число nn (n< 10в 6 степени n< 106 заполнить массив его цифрами, расположенными в обратном порядке, т.е. первый элемент равен последней цифре, второй — предпоследней и т.д. незаполненные элементы массива должны быть равны нулю. элементы массива, являющиеся цифрами числа n вывести на экран. формат входных данных с клавиатуры вводится натуральное число nn (n< 10в 6степени n< 106). формат выходных данных требуется вывести содержимое массива после заполнения согласно условию . элементы должны разделяться пробелами.

Begin readstring().Reverse.Print end.

Program Scheme;

Var xn,xk,dx,x,s,p,k,y: Extended;

Label rep;

Begin

write('Enter xn: ');

readln(xn);

write('Enter xk: ');

readln(xk);

write('Enter dx: ');

readln(dx);

s:=0; p:=1; x:=xn; k:=0;

rep:

If x <= xk then

 Begin

  y:=exp(sin(x))*cos(x);

  writeln('x = ',x:0:3, '  y = ', y:0:3);

  if y >= 0 then

  s:=s+y;

  if y <> 0 then

  p:=p*y;

  x:=x+dx;

  goto rep;

 End

else

 Begin

  writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);

  exit;

 End;

End.

Объяснение: Если есть вопросы, пишите в лс.

1)20m+40m=240

60m=240

m=240: 60

m=4

ответ: m=4

2)800k: 200=800

800k=800*200

800k=160000

k=160000: 800

k=200

ответ: k=200

3)(8x+2x)*8: 2=160

10х*8: 2=160

10х*8=160*2

10х*8=320

10х=320: 8

10х=40

х=40: 10

х=4

ответ: х=4

4)10+30t=20t+100

 

  не знаю