Вообще не знаком с синтаксисом паскаля. Задачка элементарная

Есть трехзначное число, надо разложить его на цифры. Как вариант решения: преобразовать в строку, обойти в цикле и вывести каждый символ. Написал бы за минуту, если б знал, как объявлять переменные и как преобразовывать типы))

Подсобите, пожалуйста

чё за бред? деление на 10 в паскале тоже хорошо работает

ну можно и так. Мне все равно, я синтаксис не знаю))

Можно еще десяток решений придумать, я думаю... вопрос не в этом

http://dinaf.ru/?page_id=196

Или
http://www.codenet.ru/progr/delphi/Object-Pascal-short/

Ну а набросать никто не может? Разобраться я и сам могу без ссылок. Просто хотел узнать решение за минимальное время

var
data:integer;
rslt:integer;
delitel:integer;
i:integer;
begin
 readln(data);
 delitel:=100;
 for i:=1 to 3 do begin
   rslt:=(data div delitel);
   data:=round(data-rslt*delitel);
   writeln(rslt);
   delitel:=round(delitel/10);
 end;
 readln;
end.

var s:rtring;
var r:integer;
Begin
read(r);
s:='';
While r<>0 do
begin
s:=inttostr(r mod 10)+s;
r:=r div 10;
end;
writeln(s);
end.

вот спасибо :)

(8) inttostr нет в рассово чистых Паскалях.

(10) chr(ord('0')+(r mod 10))
:)

ну чё то там:
program digits();
var
 n, l: integer;
begin
 writeln("вводите:");
 readln(n);
 while n>0 do
 begin
   l:= n mod 10;
   n:= n div 10;
   writeln(l);
 end;
end.

А я чето затупил, твой вариант справо налево выводит, если не складывать в строку. Я его отверг, реально затупил.

Руки помнят, фигли.

а что ещё паскаля в школах дают ?

(15) Люди в институтах на VB 6.0 до сих пор учатся. И Паскаль тоже дают.

(15) Ага дают, школьнице надо было, а я не знаю))

(14) некоторые Йенсена-Вирта под подушкой держали вместо сказки на ночь

(17) напиши на 1С, на запросах, полезнее будет :)

боюсь препод не одобрит)

(17) ей с массивом наверно.
var s:array [1..100] of integer;
var r,ch,i:integer;
Begin
read(r);
s:='';
ch:=0;
While r<>0 do
begin
ch:=ch+1;
s[ch]:=r mod 10;
r:=r div 10;
end;
for i:=ch downto 1 do write(s[i]);
writeln();
end.

(20) ответ на (19)

program one;
var i: byte:
   s: string;
begin
read(i);
s:=str(i);
writeln("первая цифра = " + s[1]);
writeln("вторая цифра = " + s[2]);
writeln("третья цифра = " + s[3]);
end

(23) Мы подобным способом написали в универе калькулятор.
Все сидели кнопки рисовали, функции делали.
А мы 2 текстовых поля на форму вбабахали и 4 кнопки со знаками)))