Составьте программу в системе паскаль №11

Question

Составьте программу в системе паскаль №11

---

Comments

Const m : array[0..9] of String = ('zero','one','two','three','four','five','six','seven','eight','nine');Var s : String; i : Integer;Begin Write('Введите цифры: '); Readln(s); For i := 1 to Length(s) do If s[i] in ['0'..'9'] then Writeln(m[Ord(s[i])-Ord('0')]);end.

Answer 1

Var
n: string;i: integer;

begin
write('Введите числа:');
readln(n);
for i := 1 to length(n) do
case n[i] of 
'0': write('zero ');
'1': write('one ');
'2': write('two ');
'3': write('three ');
'4': write('four ');
'5': write('five ');
'6': write('six ');
'7': write('seven ');
'8': write('eight ');
'9': write('nine ');
else
write ('Такого числа нет ');
end;
end.

Answer 2

Var
  n: integer;

begin
  repeat
    read(n);
    case n of
      1: writeln('one');
      2: writeln('two');
      3: writeln('three');
      4: writeln('four');
      5: writeln('five');
      6: writeln('six');
      7: writeln('seven');
      8: writeln('eight');
      9: writeln('nine');
      10: writeln('ten');
      else writeln('Error');
    end;
  until false;
end.