Налить в флягу, и из фляги налить в одну банку. И все вроде как.
Var
a:array[1..10] of integer;
i, k:integer;
begin
for i:=1 to 10 do begin
write(i,'-й элемент: ');
readln(a[i]);
end;
k:=0;
for i:=1 to 10 do
if a[i]>50 and a[i] mod 3 = 0 then
k:=k+1;
writeln(k,' чисел');
end.
1)40*50=2000-на 1 стр.
2)2000*30= 60000- объем книги в байтах
<span>если надо в Кб то 60000 делите на 1024, если в Мб то получившиеся число после Кб делим еще на 1024</span>
Делаем развернутую запись числа
3*8²+4*8¹+1*8°=192+32+1=225