С клавиатуры вводят слова.Составьте программу,которая выводит цифры этого числа...

Question

С клавиатуры вводят слова.Составьте программу,которая выводит цифры этого числа .Например:семь нуль три один шесть четыре ,должно вывести 7 0 3 1 6 4

Answer 1

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var w1:=Arr('ноль','один','два','три','четыре','пять','шесть',
    'семь','восемь','девять');
  var w2:=Arr('0','1','2','3','4','5','6','7','8','9');
  var a:=ReadlnString('->').ToWords;
  foreach var w in a do begin
    var i:=w1.FindIndex(p->p=w);
    if i>=0 then Write(w2[i],' ')
    end;
end.

Пример
-> семь ноль три один шесть четыре
7 0 3 1 6 4

Comments

но это дз по информ ,а в школе не обнавленный паскаль

---

program kate;
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.

---

её нужно перефразировать

---

что задали в шк,то я и говорю

---

к вам притензий НЕТ

---

претензий*