СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 27 № 3105

На вход программе подается последовательность символов, среди которых встречаются и цифры. Ввод символов заканчивается точкой (в программе на языке Бейсик символы можно вводить по одному в строке, пока не будет введена точка). Требуется написать как можно более эффективную программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая составит из тех цифр, которые встречаются во входных данных, максимальное число. При составлении итогового числа каждая цифра может быть использована только один раз. Если во входных данных цифры не встречаются, то следует вывести "-1". Например, пусть на вход подаются следующие символы:

14ф73п439.

В данном случае программа должна вывести

97431.

Решение.

var a: array[0..9] of boolean;

c: char;

i, k: integer;

begin

for i:=0 to 9 do a[i]:=false;

read(c);

while c<>'.' do

begin

if c in ['0'..'9'] then

begin

k:=ord(c)-ord('0');

a[k]:=true;

end;

read(c);

end;

k:=0;

for i:= 9 downto 0 do

if a[i] = true then

begin

k:=k+1;

write(i);

end;

if k=0 then write(-1);

end.