Составить алгоритм с циклом, вывести на экран все пятизначные числа не больше 2706 в столбец

Question

Информатика: Составить алгоритм с циклом, вывести на экран все пятизначные числа не больше 2706 в столбец

НастюшКа50471 · Accepted Answer

Var
c: set of char;
i, n: integer;
s: string;

begin
c := [];
write('Введите текст: ');
readln(s);
n := 0;
for i := 1 to length(s) do
    if not (s[i] in c) then
    begin
      include(c, s[i]);
      n := n + 1
    end;
writeln('Мощность алфавита, использованного для строки, равна ', n)
end.

Тестовый прогон:

Введите текст: В чащах юга жил бы фикус? Да, но фальшивый экземпляр...!
Мощность алфавита, использованного для строки, равна 35

Введите текст: Pi:=3.14159265; D:=Pi*sqr(D)/4;
Мощность алфавита, использованного для строки, равна 22

MOGZ ответил