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

    Помогите составить программу

Ответы 1

  • Const n: array[1..10] Of string = ('один','два','три','четыре','пять','шесть','семь','восемь','девять','нуль');Var b,c: string;i,j: integer;Beginb := '1234567890';Write ('Введите цифру / число : ');read (c);For i:=1 To length(c) DoBeginj := pos(c[i],b);write (n[j],' ');End;End.
    • Автор:

      edmundo
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years