i=6
v=i*k
v=6*2048=12288 бит=1536 байт=1,5 кбайт
Ответ: 1.5кбайт
<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.
Uses crt;
Var
mas:array[1..10, 1..10] of integer;
i,k,minln,pr:integer;
Begin
minln:=0;
for i:=1 to 10 do
for k:=1 to 10 do
mas[i,k]:=random(10)+1;
for i:=1 to 10 do begin if minln>0 then break; pr:=0;
for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;
if (pr = 10) then minln:=i;
end; end;
Writeln('Минимальный номер строки с чётными числами - ',minln);
Writeln('Вот она');
for k:=1 to 10 do write (mas[minln,k],' ');
<span>End.</span>
Var a,b : Integer;
Begin
Readln(a,b);
Writeln('Ср.арифм. = ',(a+b)/2);
end.