Заменить цифры от 1 до 10 словами. Например: 1 - "один" и т.д.

Помогите составить программу и блок-схему.

1

Ответы и объяснения

  • SkyBy
  • главный мозг
2013-11-12T23:37:05+00:00

Const n: array[1..10] Of string = ('один','два','три','сетыре','пять',
'шесть','семь','восемь','девять','нуль')
;

Var b,c: string;
i,j: integer;
Begin
b := '1234567890';
Write ('Введите цифру / число : ');
read (c);
For i:=1 To length(c) Do
Begin
j := pos(c[i],b);
write (n[j],' ');
End;
End.
В слове 'сетыре' замените С на Ч.
Спасибо тебе огромное,добрый человек!;)