var s: string; i, j, n: integer; c: char; flag: boolean;
begin Write('Введите произвольное число: '); Readln(s); flag := false; n := length(s); i := 1; while (i <= n) and (not flag) do begin c := s[i]; j := i + 1; while (j <= n) and (not flag) do if s[j] = c then flag := true else j := j + 1; if (not flag) then i := i + 1 end; if flag then Writeln('Символ "', c, '" встречается больше одного раза') else Writeln('Все символы уникальны') end.
Тестовое решение: Введите произвольное число: -1453.5462 Символ "4" встречается больше одного раза
Excel-первод(превозходить превозходящий) Microsoft Excel является широко распространенной компьютерной программой, с которой производятся расчеты, составляются таблицы и диаграммы, вычисляются простые и сложные функции.
Эта программа входит в пакет Microsoft Office, а потому установлена практически на всех компьютерах. Возможность составления таблиц, диаграмм и отчетов, произведения самых сложных вычислений делает эту программу популярной среди бухгалтеров и экономистов. При этом программа отличается понятным интерфейсом и удобством использования.
По своей сути Microsoft Excel – это большая таблица, предназначенная для внесения в нее данных. Функции программы позволяют проводить практически любые манипуляции с цифрами. Электронная таблица является основным средством, которая используется для обработки и анализа цифровой информации с средств вычислительной техники.
При этом, кроме числовых и финансовых операций, Microsoft Excel может использоваться в процессе анализа данных, открывая пользователям широкие возможности для удобной автоматизации и обработки данных.
Особенность программы заключается в том, что она позволяет осуществлять сложные расчеты. То есть в процессе вычисления одновременно можно оперировать данными, которые располагаются в разных зонах электронной таблицы и при этом связаны определенной зависимостью. Выполнение таких расчетов осуществляется благодаря возможности введения различных формул в ячейки таблицы. После выполнения вычисления результат будет отображаться в ячейке с формулой. В доступном диапазоне формул находятся разные функции – от сложения и вычитания до вычислений, связанных с финансами или статистикой.
Важная особенность использования электронной таблицы заключается в автоматическом пересчете результатов, если изменяются значения ячеек. Excel может применяться при выполнении финансовых расчетов, учете и контроле кадрового состава той или иной организации, в построении и обновлении графиков, которые основаны на введенных числах.
Файл, с которым предполагает работу Excel, называется книгой. Она включает в себя несколько рабочих листов, в которых могут содержаться самые разные данные, начиная от таблиц и текстов и заканчивая диаграммами и рисунками. Microsoft Excel рассчитан на поддержку и использование XML-форматов, а также может открывать такие форматы, как CSV, DBF, SYLK, DIF
s: string;
i, j, n: integer;
c: char;
flag: boolean;
begin
Write('Введите произвольное число: '); Readln(s);
flag := false;
n := length(s);
i := 1;
while (i <= n) and (not flag) do
begin
c := s[i];
j := i + 1;
while (j <= n) and (not flag) do
if s[j] = c then flag := true else j := j + 1;
if (not flag) then i := i + 1
end;
if flag then Writeln('Символ "', c, '" встречается больше одного раза')
else Writeln('Все символы уникальны')
end.
Тестовое решение:
Введите произвольное число: -1453.5462
Символ "4" встречается больше одного раза