Сходства-одинаковые размеры (диаметр 120 мм, толщина 1.6 мм) , тот же радужный вид. Принцип записи и чтения тоже аналогичный: лазерный луч отражается от металлизированной поверхности ("ямок" и "горок"), причем, отражение от любой поверхности кодирует ноль, а отражение от перехода между ямкой и горкой (при этом луч ослабляется за счет интерференции) - единицу На этом сходство заканчивается - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм) . В DVD же применяется красный лазер (650/635 нм) . Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске. Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт, имеется в виду односторонний, однослойный DVD-диск.
1. Современное решение, когда можно решить "в одну строку"
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString .Where(d->Pos(d,'13579')>0)).SelectMany(c->c) .Select(c->c.ToDigit).Sum) end.
Пример 252 337 105 S=24
2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)
var m,i,j,s,d:integer; begin s:=0; for i:=1 to 3 do begin Read(m); for j:=1 to 3 do begin d:=m mod 10; if d mod 2<>0 then s:=s+d; m:=m div 10 end end; Writeln('S=',s) end.
На этом сходство заканчивается - дело в том, что в CD используется инфракрасный лазер (длина волны в воздухе 780 нм) . В DVD же применяется красный лазер (650/635 нм) . Меньшая длина волны позволяет плотнее размещать информацию на DVD-диске.
Ёмкость DVD сильно превосходит обычный компакт-диск (640 Мб) и составляет 4.38 гигабайта (в смысле 2^30 байт) или 4.7 миллиарда байт, имеется в виду односторонний, однослойный DVD-диск.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
Пример
252 337 105
S=24
2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.