Определить, какие цифры есть в выражении (рекурсия) - Pascal ABC

  1. В строке содержится запись арифметического выражения. Какие цифры есть в выражении? Переделать через рекурсию


textual

Код к задаче: «Определить, какие цифры есть в выражении (рекурсия) - Pascal ABC»

type mnz=set of char;
procedure cifry(s:string;i:byte;var m:mnz);
begin
if s[i] in ['0'..'9'] then m:=m+[s[i]];
if i<length(s) then cifry(s,i+1,m);
end;
var a:mnz;
    s:string;
    c:char;
begin
writeln('Введите арифметическое выражение, содержащее цифры');
readln(s);
cifry(s,1,a);
if a=[] then write('Вы не ввели ни одной цифры')
else
 begin
  writeln('В выражении есть цифры:');
  for c:='0' to '9' do
  if c in a then write(c:2);
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.167 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С

  1. Принадлежит ли точка М(x;y) закрашенной области. Крайние точки области y(2;-2) x(1;-1), т.е. ромб.

  1. Ввести с клавиатуры n любых целых чисел. Ли они двухзначные? Ответ «да» или «нет». Буду очень благодарна за помощь

  1. Составить программу, которая заполняет одномерный массив из 20 элементов случайными целыми числами от 1 до 99, а затем определяет, сколько в массиве имеется простых чисел (простым числом называется такое, которое делится только на единицу или само на себя).

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