Var s:string; k,i:integer;
begin
write('Введите строку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>Введите строку:
13 апреля 2016 г .
k = 6</span>
Копирование это взять вот например мой текст и скопировать , а перемещение это просто перемещение возможно объекта, строки , но не копирование не путай !<span />
1/ Носитель Емкость
Жесткий диск до нескольких терабайт
CD 700Мб
DVD 4,7Гб
Flash до десятков гигабайт
Blue-ray 25 ГБ (однослойный)
50 ГБ (двухслойный)
100/128 ГБ (BDXL)
2/ Сходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм), тот же радужный вид. Принцип записи и чтения тоже аналогичный.
Различия - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм). В DVD же применяется красный лазер (650/635 нм). Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске.
Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт.
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
Или одна тройка или две единицы. Тройка больше, возьмем ее
нет восьмерок или не больше двух девяток. Ок возьмем без восьмерок, и все девятки как наибольшее
Старшие разряды больше, младшие меньше
Получаем 999993