Nie ogarniam tego pascala a musze zrobić program.
Program który losuje liczbe z zakresu 10000-30000 i zamieni ją na zapis słowny
.Przykład: 2340 = dwa trzy czte zer
Jakieś wskazówki ??? Jestem w totalnym lesie próbuje i za kazdym razem ......
program zadanie;
uses crt;
const
a:array[0..9] of string =
('zer','jed','dwa','trz','czt','pie','sze','sie','osi','dzi');
var
liczba:string;
i,x,k:integer;
begin
clrscr;
writeln;
writeln('Podaj liczbe');
readln(liczba);
writeln;
write('liczba: ');
for i:=1 to length(liczba) do
begin
val(liczba[i],x,k);
write(a[x]);
end;
readln;
end.
ale mam problem z zakresem