Заполнить массив цифрами числа, расположенными в обратном порядке

@SaLoMoN · Регистрация: 17.11.2011

Author24 — интернет-сервис помощи студентам

решите через паскаль выручайте пожалуйста

Дано натуральное число n ≤ 999 999.Заполнить массив его цифрами,расположенными в обратном порядке первый элемент равен последней цифре,второй предпоследней и.т.д. Элементы массива,являющиеся цифрами числа n,ввести на экран.

@versa4e · 24.11.2011, 17:40

Pascal

const
  nmax=6;
type
  mas=array[1..nmax] of integer;
var
  b:mas;
  a:longint;
  i,n:1..nmax;
begin
  repeat
    write('A=');
    readln(a);
  until (a>=1) and (a<=999999);
  i:=1;
  n:=0;
  while a>0 do
    begin
      b[i]:=a mod 10;
      a:=a div 10;
      i:=i+1;
      n:=n+1;
    end;
  for i:=1 to n do
    write(b[i]:4);
end.

@SaLoMoN · 24.11.2011, 18:43 **[ТС]**

спасибо выручил

@Andyc · 13.01.2012, 14:04

Pascal

uses crt;
const
  nmax=999999;
  m=6;
var
  A: Array[1..m] of Integer;
  n: LongInt;
  c, i: Integer;
begin
  repeat
    ClrScr;
    Write('Введите натуральное число <', nmax, ' ');
    Readln(n);
  until (n>0) and (n<=nmax);
  c:=0;
  repeat
    Inc(c);
    A[c]:=n mod 10;
    n:=n div 10;
  until n=0;
  Writeln('Массив цифр в обратном порядке');
  for i:=1 to c do Write(A[i]:2);
  Writeln;
  Readkey;
end.

Заполнить массив цифрами числа, расположенными в обратном порядке

Решение

Решение

@SaLoMoN 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 91
		1
	Заполнить массив цифрами числа, расположенными в обратном порядке 24.11.2011, 17:14. Показов 2932. Ответов 3 Метки нет (Все метки) решите через паскаль выручайте пожалуйста Дано натуральное число n ≤ 999 999.Заполнить массив его цифрами,расположенными в обратном порядке первый элемент равен последней цифре,второй предпоследней и.т.д. Элементы массива,являющиеся цифрами числа n,ввести на экран. 0

@SaLoMoN 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 91
	24.11.2011, 18:43 [ТС]	3
	спасибо выручил 0

	13.01.2012, 14:04

Опции темы