Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа налево)

@2k7fakel · Регистрация: 26.10.2012

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

заранее спасибо

@LelMath · 22.11.2012, 23:06

Pascal

var a,b,z,d,i: integer;
s: array [1..100] of integer;
Begin
z:=10;
read(a);
 for i:=1 to 10 do
 if a<=z then begin b:=i; break; end
         else z:=z*10;
    for i:=1 to b do
    begin
    s[i]:=a mod 10;
    a:=a div 10;
    end;
       for i:=1 to b do
       write(s[i]);
 
End.

Насколько я понял эта.

@2k7fakel 0 / 0 / 0 Регистрация: 26.10.2012 Сообщений: 22
		1
	Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа налево) 22.11.2012, 21:55. Показов 2629. Ответов 1 Метки нет (Все метки) заранее спасибо 0

	22.11.2012, 23:06

Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке справа налево)

Решение