Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
1. Материнская плата
2. Оперативная память
3. Акустические колонки
1) Плюсы табличного преставления в том, что пользователь может видеть зависимости между столбцами таблицы, а также сортировать данные в том порядке, каком ему необходимо.
Минус заключается в том, что если пользователю заранее не известно, что хранится в базе, ему трудно будет в ней ориентироваться.
2) Среди плюсов понятность информации, которая содержится на форме, но в противовес этому – невозможность видеть зависимости.
3) Столбцы называются полями, а строки - записями. То есть совокупность всех полей в строке - это запись.
4) Тип поля определяется типом данных, которые оно содержит. Поля могут содержать данные следующих основных типов:
Счетчик. Содержит последовательность целых чисел, которые задаются автоматически при вводе записей. Эти числа не могут быть изменены пользователем.
Текстовый. Содержит символы различных типов.
Числовой. Содержит числа различных типов.
Дата/Время. Содержит даты или время.
Картинка. Содержит изображения.
Логический. Содержит значения Истина (Да) или Ложь (Нет)
Считаем буквы А, Д и Р цифрами 0, 1 и 2 троичной системы счисления.
Итого нам нужно перевести 200000 в десятичную. Итак, 3^5 * 2 = 486.
Ввод матрицы A(n, m)
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) :
A(i, m-j+1)
= Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.