заполнить строковую переменную цифрами

@vipusknik · Регистрация: 22.04.2012

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

заполнить строковую переменную цифрами с помощью генератора случайных чисел. В конец строкового поля добавить строковую переменную,которая будет вмещать число. Найти произведение всех цифр.

не могу заполнить цифрами.
я вот так делаю

Pascal

const n=10;
var r:string[n]; 
m:array[1..n] of integer; d,i:integer;
 
  
begin
randomize;
 for i:=0 to n-2 do
 r[i]:=random(21);
r[n-1]:=length(r); //strokovaja peremennaja v konce stroki//

но выдает ошибку Program1.pas(9,8): Нельзя преобразовать тип integer к char.

А как по-другому не могу придумать.
Подскажите пожалуйста.
Заранее спасибо.

@Puporev · 09.05.2012, 21:47

Pascal

uses crt;
var s,s1:string;
    i,a:integer;
    p:integer;
begin
clrscr;
randomize;
s:='';
for i:=1 to 10 do
 begin
  a:=random(9)+1;
  s:=s+chr(a+48);
 end;
writeln('Строка из цифр');
writeln(s);
write('Введите натуральное число a=');
readln(a);
str(a,s1);
s:=s+s1;
writeln('Строка с числом');
writeln(s);
p:=1;
for i:=1 to length(s) do
p:=p*(ord(s[i])-48);
write('Произведение=',p);
readln
end.

	09.05.2012, 21:47