Предмет: Информатика,
автор: katefox2016
С клавиатуры вводят слова.Составьте программу,которая выводит цифры этого числа .Например:семь нуль три один шесть четыре ,должно вывести 7 0 3 1 6 4
Ответы
Автор ответа:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Автор ответа:
0
что задали в шк,то я и говорю
Автор ответа:
0
То, что "в школе задали" - это никому тут не интересно, потому что это ВАМ задали. А тут вопрос задаете ВЫ и полностью отвечаете за его корректность.
Автор ответа:
0
Из параграфа 3 Правил, которые Вы обязались при регистрации выполнять: "Проблемы, содержащиеся в вопросе должны быть изложены конкретным, четким и исчерпывающим образом, ...". У Вас не указан язык программирования даже. Какие могут быть претензии?
Автор ответа:
0
к вам притензий НЕТ
Автор ответа:
0
претензий*
Интересные вопросы
Предмет: Химия,
автор: takueti
Предмет: Английский язык,
автор: lyntek63
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: 9004162
Предмет: Математика,
автор: bikbulatovasab