Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный

@Мария.... · Регистрация: 08.06.2011

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

Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.

@the_crow · 13.06.2011, 09:53

Pascal

procedure InvertDigits(k:integer);
var k1:integer;
begin k1:=0;
      while k>0 do
      begin k1:=k1*10+(k mod 10);
            k:=k div 10;
      end;
      k:=k1; 
end;
 
var a:array[1..5] of integer; i:byte;
begin for i:=1 to 5 do
       begin write(i,' chislo: ');
             readln(a[i]);
       end;
       for i:=1 to 5 do
       writeln(i,' chislo: ',InvertDigits(a[i]));
       readln;
end.

@KaiTheCat · 13.06.2011, 09:55

the_crow, 2 строку подправь

Добавлено через 36 секунд

Не по теме:

поздно х)

@the_crow · 13.06.2011, 10:00

Сообщение от KaiTheCat

Не по теме:

почему, товарищ модератор?! это как раз по теме было! уже ведь подправил=)

@Sailles · 28.05.2012, 20:03

попытка вызвать процедуру как функцию

@Artem_123124 · 26.10.2017, 16:06

А как в С# сделать?

@bormant · 26.10.2017, 18:54

Artem_123124, хз.

@Мария.... 0 / 0 / 0 Регистрация: 08.06.2011 Сообщений: 7
		1
	Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный 13.06.2011, 09:26. Показов 9408. Ответов 6 Метки нет (Все метки) Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел. 0

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	13.06.2011, 09:55	3
	the_crow, 2 строку подправь Добавлено через 36 секунд Не по теме: поздно х) 0

@the_crow последний из ворон 111 / 111 / 63 Регистрация: 02.02.2011 Сообщений: 334
	13.06.2011, 10:00	4
	Сообщение от KaiTheCat Не по теме: почему, товарищ модератор?! это как раз по теме было! уже ведь подправил=) 0

@Sailles 4 / 4 / 1 Регистрация: 28.08.2011 Сообщений: 109
	28.05.2012, 20:03	5
	попытка вызвать процедуру как функцию 0

@Artem_123124 1 / 1 / 0 Регистрация: 21.10.2017 Сообщений: 11
	26.10.2017, 16:06	6
	А как в С# сделать? 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	26.10.2017, 18:54	7
	Artem_123124, хз. 0