Он более красочный и качество по лучше будет.
<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
<u>Пример</u>
252 337 105
S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
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.
Любая Флешка, DVD диск, CD, жёсткий диск
1. Объем = скорость*время
Объем = 256000*40=10240000 бит
1 Кбайт = 8000 бит
10240000 = 1280 Кбайт
Ответ: 1280 Кбайт.
2. Объем изображения: 1280*800*24 = 24576000 бит
Время = объем/скорость
Время = 24576000/19200 = 1280 с
Ответ: 1280 с.
3. Объем изображения: 800*600*4 = 1920000 битов(т.к. 16 цветов - 2^4)
Время = объем/скорость
Время = 1920000/32000 = 60 с.
Ответ: 60 с.
Первое задание:
1 символ = 8 бит
Размер книги = 15 564 800 бит
2 Гб = 2000 Мбайт
15 564 800 бит = 1,9456 Мб
2000 - 1,9456 = 1998,0544 Мб
1998,0544 Мегабайт = 1,9980544 Гб
Ответ: 1.9 Гб
Второе задание:
(4000*1500)*2 = 12000000 байт
12000000/1024 = 11 718,75 Кбайт